IDENTIFICATION 



PRODUCT CODE: 
PRODUCT NAME: 
DATE CREATED: 



DEC-S8-LBASA-A-LA 
LISTING OP OS/8 BASIC 
OCTOBER 2, 1972 






# 



/OS/a BASIC EonoK palb-vt la/eu/i?. paue i 

1 /05/« BASIC EDITOfi 

2 / 

3 /D£C-S8-l,BAS*-A-LA 

a / 

5 /C0P¥RlliHT,1972 

6 / 

T /DIGITAL EOUIPMfcNT CORPORATION 

8 /MAyNAR0,M455ACMUSeTTS 017b« 

9 / 

10 /AUGUST 19, 197a 

11 / 

12 /HANK MAURE» AND LEN EUCKMAN 

13 / 
H / 
15 / 
10 / 

17 eiQtf VERSON3 100 



/nS/9 H4SIC tOlTOrt 



(. a L H - V / 1 i' / f ■ 



!? 



.- s 



If 

ao 
?i 

?3 
?u 
2b 
3b 
27 
2>? 
S"* 
J0 
31 
32 
33 
3a 
35 
3fe 
37 
38 
39 

ata 

41 
4? 

43 

ad 

45 

aj 

46 

a<j 
50 
51 
52 
53 
5a 
55 
5b 
57 
5ft 

b<? 
*»l 
fe2 
fe3 
«>a 
^5 
6*. 
67 
(>B 
f^9 
7f1 
71 
72 



055003 
ilPi00a 

0ei0P)5 

000l?lb 

010007 
00010 
00011 
00012 
00013 
0001U 
00015 
00016 
0(5017 

00020 
00021 

00022 
00023 
00024 
00025 
0002b 
00027 
00030 
00031 
00032 
00033 
00034 
00035 
0003b 
0003 7 
00040 
0?041 
00042 
00043 
00044 
00045 
0004b 
00047 
■23050 
00KJ51 
0H052 
00053 

00054 

00055 

0005b 

i^li^'i 5/ 
^1 / ifi b t' 



37 00 
7001 
7bHU 
?20'-3 
ati0ii] 

4400 
5000 

0003 

0000 

0000 
0000 
0000 

01 00 

7b03 
326b 
0000 
0000 
0000 
0000 
0000 
0000 

0020 
0000 

0000 

0000 
0000 
«I000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 

0.1300 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 

0000 

0000 
0000 
0000 
0000 
0000 
7b07 
7 7 00 
020ti 
0201 
7761 



SWAHTI, 

RWAPT(>, 

SW4PT3. 

SwAPT4, 

VtHS, 

X10. 

XU, 

X12, 

X13, 

X14, 

X15, 

X16, 

Xl7, 

HDTMP, 

HDPTR, 

SIZE, 

TfcMP, 

TtMP2, 

TOWARD, 

PTH, 

NDIGS, 

NCMASS, 

coklag, 

CHNFIAG, 
WUMI-LAG, 
(ILOf'LAG, 
LINENO, 



HC.HtUK5/,U,ll 

O.SrtKt>s32k;v! 

DSKcuF s<4Ot'0 

HAMiLKsuay^ 

TXTAKt As500O 

*3 






VtHSON 

lNFO-1 
MAMLST-l 








*20 


















0;0 



I ) 



EO^LIN, 0;0 
NAM£,. 0;0;0;0 

fname, 0;0;0;0 



OfcVHAN, 

SwPNl'M, 
07607, 

07 t:)? , 

n?yii , 
7 7M , 








760 7 
7 7C^/ 

?0i(- 

2H1 
7/hl 



/ bI7t .'i- iLH-'-'.^v 

/ I,\f-Oi*MA r Ii:N ihfca ( K i t L » 

/ SwAP A-^t-A Fu^ f\SH 

/ ^ILt c»UFFte< 

/ Input ouTPur HANniK^f a!)ok>.ss 

/ STAkT of TFxT AktA 



/VEKSlONi MlJMHFJ^ 



/UStO BV INPUT ROUTINt 
/ijStD BY LINE F;i)ITO« STUFF 



/s0 IF CTRL/0 

/»1 IF HACK FROM RUN, IF Ol.U 

/=1 IF WUN, IF SAVE 

/si IF INPUT COMING FHOM FILE 

/mOLOS most RtCENT UIlViE NUM 

/LAST LINE f«iUMHER 

/NAHE auFFfc;^ 

/CliHRfcNT FILE NAME 



/ADDPtSS OF ntVICfc HAMDLEW 
/CUfiPENT iiEi/ICE NiLiMdE"' 
/i)WAPPEk FLAG (FOk -C) 



t 



t 



# 



# 



'os/a 


BASIC E 


DITOH 




PAlt' 


-V7 lH/24/7^ 


73 


00061 


7/64 


0;7b4f 


7764 




Ta 


msshi 


017/ 


0177, 


177 




7S 


800*3 


0232 


0252, 


232 




?* 


0006a 


7201 


07201, 


7201 




11 


00065 


7706 


07706, 


7 706 




T« 


00066 


0032 


032, 


32 




T9 


00067 


0072 


072, 


72 




»0 


00070 


7200 


07200, 


7200 




»1 


00071 


7600 


07600, 


7600 




S2 


00072 


001 r 


017, 


17 




83 


00073 


0260 


0260, 


260 




S« 


00074 


0237 


0237, 


237 




85 


00075 


0013 


013, 


13 




86 


00076 


0215 


0215, 


215 




87 


00077 


0212 


0212, 


212 




8« 


00100 


0037 


037, 


37 




89 


00101 


7741 


07741, 


7741 




90 


00102 


7405 


07405, 


7405 




"l 


00103 


7701 


07701, 


7701 




92 


0010a 


7772 


07772, 


7772 




93 


00105 


6471 


06171, 


6171 




9a 


00106 


6211 


06211, 


6211 




95 


00107 


7770 


07770, 


7770 




n 


00110 


6201 


06201, 


6201 




97 


00111 


0010 


010, 


10 




96 


00112 


7774 


07774, 


7774 




99 


00113 


7766 


07766. 


7766 




100 


001ia 


7634 


07634, 


7634 




101 


00115 


0137 


0137. 


137 




102 


00116 


7746 


07746, 


7746 




103 


00U7 


0036 


036, 


36 




104 


00120 


0077 


077, 


77 




105 


00121 


7 745 


07745, 


7745 




10(> 


00122 


0012 


012, 


12 




107 


00123 


7771 


07771, 


7771 




108 


00124 


7400 


07400, 


7400 




109 


00125 


7760 


07760, 


7760 




110 


00126 


0400 


0400, 


400 




111 


00127 


0014 


014, 


14 





PA'jE ?-l 



DS/H 


HA.SIC fcl 


ilTflK 


Pa 


L ?• - V 7 1 i 


lU 




02i?ia 


y A f- 1 




11 < 


^^ttli! 


000 i) 


GtttlN. i 




u« 


P^^ai 


M2/ 


IC4 


-iIjI'-jS 


lis 


5!02t12 


30 3«) 


t'CA 


NChAKS 


llf' 


k3lii<e03 


730«) 


KiNQOfc. ClA 




117 


a0c;04 


457/ 


JMS I 


IdtTC'- 


IIH 


iipl2i?5 


3v?24 


PCA 


TfeMI^,? 


11<» 


00^00 


714b 


CLL Cf^ 


rtTL 


1?0 


002?!/ 


1024 


TAD 


rfcMP2 


121 


H02ia 


745<3 


SNA 




15? 


K)02U 


5777' 


JMP 


HYfcHVk 


123 


013212 


llli 


TAD 


U7/bb 


1?« 


00213 


7450 


SNA 




1?5 


(30214 


5354 


JMP 


C A « R E T 


12b 


00215 


1107 


TAt) 


07 7 7k^ 


lar 


0021b 


7450 


SNA 




128 


00217 


5334 


JMP 


ALT 


139 


00220 


1104 


TAO 


07772 


13P) 


00221 


745k) 


SNA 




131 


msii 


5334 


JMP 


ALT 


132 


00223 


1114 


TAD 


(r7b34 


133 


00224 


745*3 


SNA 




13a 


00225 


5315 


JMP 


ARUOM 


135 


B92ii> 


7001 


lAC 




13b 


00237 


745id 


SNA 




137 


00230 


5334 


JMP 


ALT 


ise 


00231 


7001 


lAC 




159 


00232 


744iid 


S2A 




140 


00233 


5237 


JMP 


.+4 


1«1 


00234 


457b 


ALT, JMS I 


[TYPE 


H2 


00235 


nib 


MSGALT 




1«3 


0023b 


5301 


JMP 


GfcTLlN+l 


144 


00237 


111' 


TAO 


n3h 


145 


00240 


7 45*3 


SNA 




l«b 


00241 


5313 


JMP 


AHHOW 


147 


00243 


7100 


CLC 




14H 


00243 


U?id 


TAD 


07 7 


149 


00344 


742k3 


SNL 




1S0 


00245 


5203 


JMP 


ICNOHt 


151 


00246 


7001 


I AC 




152 


00347 


302i 


OCA 


TtMP 


153 


00250 


1034 


TAO 


OLOKLAG 


154 


00251 


7b4id 


SZA CLA 




155 


00253 


5«j5i 


JMP 


.♦3 


15b 


00253 


1034 


TAO 


TfcMP3 


157 


S10354 


4573 


JMS 1 


tTTVOUT 


158 


00255 


U130 


TAD 


NChAi^S 


159 


dZ^'yi' 


7b4ii) 


S^A CLA 




lh0 


00357 


52b4 


JMP 


ISTtKl 


Ibl 


00260 


1023 


TAD 


TfcMP 


Ib^ 


C.i03bl 


U3l 


TAO 


07745 


lb3 


vieehi 


4574 


JMS I 


CLNOTb 


Ibu 


002b5 


5303 


JMP 


TGNOWfc 


Ibb 


sdi^gha 


\0i«3 


ISTtxT, TAD 


NCmAKS, 


Ibb 


0i:1^bb 


1 ll?)2 


TAD 


!7a»'S 



1 i- / 3 « / / . 



f^A. 



/GtT A t I^J^ KkO 1 ■! ' 
/CLtAK il\E N-u'^fJfc^, 
/CLfcAK ri-.nT COUNiT, 



/SAVE CmAk 

/CHfcCK KO-^ Cf'NTKDL C 



/ITi "C tXIT TO 0S6 
/CHtCK fC\H LAKrtlAGR HtTUHIJ 

/JUMP IF 015 - CAKRtT. 
/CHECK FOHi -U 

/THtAT "U AS ALTMODfc 
/CMtCK f'OR ALTMOOE 

/JUMP If- 033 - ALTMODt. 
/CHtCK FOR RUBOUT 

/TktAT LIKE BACK ARROW 
/CHfcCK FOK ALTMODt 

/JUMP IF I7b - ALTMOOt. 



/PRINT IF 175 - ALTMOOE. 

/CHECK FOR liACK ARROW 
/JUMP IF 157 - BALKARROw, 

/JUMP IF NOT PRINTAbLfc. 

/SAVE ITCSPs01,-a77,NO 00) 
/INPUT FROM FILt 1 

/YES, OQN'T ECHO 

/PRINI ON TTY 

/NOT LINiE NUMBER, 

/Sfct IF US A DIGIT 

/PUT DIGIT INTO LINE num 

/GET NE)iT CnAR 

/PUT CHA^ iM T-it lT-E. 



# 



# 



« 



# 



/OS/8 6AS1C tl-ITO« 



PAL(*-V7 10/dU/7^ PAbfc 4-1 



lfe7 
168 
169 
170 
IM 

m 

ITa 

175 
I7fc 
177 

ir«i 

179 

ise 

181 

1«2 

IBS 

ISA 

185 

186 

187 

18a 

189 

1<»0 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

2192 

2f)3 

ilia 

205 

206 

207 

20a 

209 

Bin 

211 

2J2 

213 

2U 

215 

216 

217 

216 

219 

22?i 



00266 

00267 

0027i^ 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00300 

00301 

00302 

00303 

00304 

00305 

00306 

00307 

0031(19 

003U 

00312 

00313 

00314 

00315 

00316 

00317 

00320 

00321 

00322 

00323 

00324 

00325 

00326 

00327 

003J0 

00331 

00332 

00333 

00334 

00335 

00336 

00337 

00340 

00341 
00342 
00343 
00344 

00345 

00346 
013347 
00351(1 
003*51 
i^a352 
00353 
00354 



771*5 

5274 

4573 

4576 

0571 

5201 

103i<) 

7110 

1172 

302b 

7U3ii 

5307 

1023 

7106 

7006 

70Ci!6 

531«i 

1426 

0055 

1023 

3426 

2030 

5203 

1034 

764id 

5322 

1115 

4575 

724KJ 

1030 

7510 

533)0 

303ei 

5203 

102/ 

7500 

3027 

5203 

1034 

7650 

4573 

103k} 

7440 

5345 

J027 

765id 

5203 

71M 

1172 

3P26 

7430 

I42b 

0255 

3420 

4571 



AHRQW, 



SPA 
.IMP 
JMS 
JMS 
MSG 
JMP 
TAD 
CLL 
TAO 
OCA 

szu 

JMP 
TAO 
CLL 
ftTL 
RTL 
JMP 
klGHTY, TAO 
AND 
TAO 
OCA 
ISZ 
JMP 
TAO 
SZA 
JMP 
TAO 
JMS 
CL* 
TAD 
Sf>A 
JMP 
OCA 
JMP 
TAO 
SMA 
OCA 
JMP 
TAD 
SNA 
JMS 
TAD 
■SZA 
JMP 
TAO 
SNA 
JMP 

CLL 

TAO 
OCA 
SZL 

TAO 
AM) 
DC A 
JMS 



CLA 

.♦5 
I tC«Lf 
I CTVPt 
TOO 

GETLIN* 

NCHAPS 
RAR 

tLINE*2 

PTR 



/rf5V- CHARs IS Ok TO FIT 1 MO«K. 
l/II- ANi tVEN KiuMdER 

/Of' chahs so KAH 



CARHET, 



RIGHTY 
TEMP 



RTL 



CLA 



I 

CMA 



.♦« 

PTR 

07700 

TEMP 

PTR 

NCHARS 

IGNORE 

OLOFLAG 

.♦3 

0137 
(TTVOUT 



/THEN store as THE LEFT 
/HALF OF THE WORO, 



/ELSE AS THE RIGHT, 



/INPUT FROM FILE ? 



/NO, PRINT BACK ARROKl 



NCHARS /IK THERE IS A TEXT CHAH TO ERASf 



CLA 
I 



CLA 



RAR 



.♦3 

NCHARS 
IGNORE 
NOIGS 

NOIGS 

IGNORE 

OLOFLAG 

tCRLF 

NCHARS 

.*4 
NOIGS 



/THEN ERASE IT. 

/OTHERWISE, IF THERE IS A LINENO 

/CHARACTER TO ERASE THEN ERASE 

/THAT. 

/OTHERWISE, NEVER MINO. 

/INPUT FROM FILE ? 

/NO, PRINT CR-LF 



/NOT AN EMPly LINE 
/ANY CHARS AT ALL ? 



IGNORE /NO, IGNORE EMPTY LINES 



(tlNE+2 

PTR 

I PTR 

077^^0 
I PTR 



/STORE H0 (CAR. RfcT.5 LIKE AI I 
/THE OlHtH CHARACTERS. 

/^MUkMALlZt LINE MuVr-fek 



/C)S/d rtASIC I^LlTOw 



<?<?5 


d^i'ib 


Sbtlv^ 


a^i 


iiaist- 


Hi"i0<) 


?24 


0P3S/ 


107b 


?^s 


i<i(J3*'i^ 


abl1> 


2?fe 


0l?Jfel 


1W7? 


?27 


003brf 


U57'J 


226 


0036 i 


5;'5o 



J. IP 1 'jLTUI-n 



TAD .Vl"3 

JMS I trXYOuT 

TAU 02 If? 

JMS I tlTYOuT 

JlM> I CCUf- 



/HiVlM (."'><-!.•■ 



# 



'OS/8 


BASIC KUnOH 






^'iL^-V J 


Iv /i'it/ fc p ft 1 ■ e 4 


ei<i 


idiAsyy 


1 a/o 












i>ili! 




eaad 




PAGt 








en 


65340^1 


01,101^1 


LNDIP, 









/(U.T DlblT I^JrO LJ\r ^hm 


HP. 


l^i^O^l 


7X0^ 




CLL 








dii 


UdO?!? 


1122 




T40 




012 




?sa 


00005 


7430 




S2L 








2i^ 


00000 


5210 




JMP 




.♦« 




2?fe 


00005 


7200 




CL4 






/NOT A DIGIT 


2S7 


00006 


2201(1 




lai 




LNOIG 


/KfcTURN +1 


238 


00007 


5600 




JMP 


I 


LNUIG 




239 


00010 


3023 




OCA 




TtMP 


/SAVfe DIGIT 


200 


00011 


S&Zf 




ISZ 




NUIGS 




24J 


00012 


1027 




TAD 




NUIGS 




202 


00013 


U2i 




TAO 




07 771 




203 


00010 


7501!) 




SMA 








2(la 


00015 


5600 




JMP 


I 


LNDIG 


/IGMOKE MORE THAN 6 DIGITS. 


205 


0041(> 


1221 




TAO 




.♦3 




2««< 


00017 


3220 




OCA 




.♦1 


/PUT IN THE NTH DIGIT IN tH 


2a 7 


00020 


7402 




HLT 






/O bIT UCD LINE number: 


200 


00421 


5230 




JMP 




.♦7 




249 


00422 


5263 




JMP 




DIGl 




250 


00423 


5253 




JMP 




0IG2 




251 


00420 


5250 




JMP 




DIG3 




252 


00425 


5242 




JMP 




niG4 




2S3 


0042(> 


S232 




JMP 




0IG5 




250 


00427 


1036 


DIG6, 


TAD 




LINCNO* 


1/wHtRt N«b 


255 


00430 


0125 




AND 




07760 




256 


00431 


5240 




JMP 




UIG56 




257 


00432 


1023 


0IG5, 


TAD 




TtMP 


/WHtRfc N«5 


258 


00433 


710b 




CLL 


«TL 






259 


00434 


700b 




RTL 








2*0 


00435 


3023 




OCA 




TfcMP 




2«.l 


00436 


103b 




TAD 




LIMCNO+l 


2«>2 


00037 


0120 




AND 




07400 




263 


00400 


1023 


DIG56, 


TAD 




TfcMP 




260 


00401 


5246 




JMP 




L)IG456 




265 


00042 


1023 


0IG4, 


TAD 




TfcMP 


/WHERE NS4 


266 


00003 


7110 




CLL 


RAP 






267 


00404 


7012 




»TH 








268 


00405 


7012 




RTH 








269 


004O(S 


3036 


OIGo5fc, 


OCA 




LINtNO* 


1 


270 


00447 


5600 




JMP 


I 


LNOIG 




271 


00450 


1035 


0163, 


TAD 




LiNtNC 


/i«iHtRt Ns3 


272 


00451 


012S 




AND 




07760 




273 


00052 


5261 




JMP 




L)IG23 




270 


00453 


1023 


niG2, 


TAO 




TfcMP 


/.^HtRfc Na2 


275 


00454 


7106 




CLL 


PTL 






27fe 


00455 


7}50i) 




WTL 








277 


00456 


3023 




OCA 




TtMP 




278 


0045/ 


1035 




TAO 




L I Nit ML 




279 


00460 


0124 




AAiD 




lW a 1,1 M 




286^ 


004f>l 


lui23 


nib2<, 


TAO 




Tt-MP 




2fil 


m<ibe 


526/ 




JMP 




int;i3i 




?8(' 


d^uhi 


lil23 


UU-1, 


TAO 




TtMP 


/^Mfci^t l:-\ 


283 


00464 


711.ii 




CLL 


KA^ 







'OS/H biSIC KtiTTU" 



PAl^-v 



•cu/ n 



' t.-z 



saa 

^8H 

289 

290 

291 

292 

293 

294 

295 

29fe 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

3ia 

315 

316 

317 

318 

319 

32a 

321 
322 
323 

32a 
325 
326 
327 
328 
329 
330 
351 
332 
3i3 
3<« 
33^ 
33^ 
ill 
3M 



034 S'j 

0Pia>j3 

ei0u67 

00470 

00471 

00472 

00473 

00474 

00475 

00476 

00477 

00500 

00501 

00502 

00503 

00S04 

00505 

00506 

00507 

00S10 

00511 

00512 

00513 

00514 

00515 

00516 

00517 

00520 

00521 

00523 
00524 
00525 
00526 
00527 
00530 
00531 
00532 
00533 
00534 
00535 
00536 
00537 
00540 
00541 
00542 
0054J 
00544 
00545 
0054ft 



7l?li 
7li11t 

3i?35 
560id 

000a 

3347 

1671 

2271 

3333 

4570 

53S1 

1733 

7112 

7012 

7012 

0120 

7450 

5321 

1074 

«325 

1733 

2333 

0120 

7450 

5321 

1074 

4325 

5276 

13a7 

7650 

4573 

5671 

0000 

6041 

5326 

6046 

7200 

5725 

0000 

2023 

7410 

4363 

1423 

0120 

7630 

5334 

iHii 

5733 

4363 

57 33 



RTk 
r)IGl?3, OCA 



00547 0aaii) 

00350 laaj 

^10551 7641^ 

;^i^hS(? Sir;/ 



TYPt, 



TUOOP, 



TCRUFi 



TTVOUT, 



PASS, 



CRSwIT, 



JMP I 
B 

DCA 
TAD 1 
ISZ 

ncA 

JMS 1 

JMP 

TAD I 

CLL RTR 

RTR 

RTR 

AND 

SNA 

JMP 

TAD 

JMS 

TAD I 

ISZ 

AND 

SNA 

JMP 

TAD 

JMS 

JMP 

TAD 

SNA CUA 

JMS I 

JMP I 



T5F 

JMP 

TLS 

CU* 

JMP I 



ISZ 

SKP 

JMS 

TAD 1 

AND 

SZA CLA 

JMP 

ISZ 

JMP 1 

JMS 

JMP I 

TAl> 
S2A CL4 

IMP 



L.NDIG 

CkSwIT 

TYPfc 

TYPfc 

PASS 

tCTKLO 

TCRLF 

PASS 



077 

TCRLF 

0237 

TTYOUT 

PASS 

PASS 

077 

TCRLF 

0237 

TTYOUT 

TLOOP 

CRSWIT 

tCHLF 
TYPE 



,»1 



TTYOUT 

TEMP 

FINCR 

TfeMP 

077 

PASS+l 

TEMP 

PASS 

FINCS 

PASS 



/TYf^F A MtSSA&E 

/SAVE CARhtlAGt «ETL><fJ SwITCM 

/GET ADUR OF MESSAiit 



/CHECK FOR CTRL/0 
/YES, STOP PRINTING 
/GET HIGH CHAR 
/SHIFT RIGHT 



/SIX BITS 

/END OF MESSAGE 
/CONVERT TO ASCII 
/PRINT CHAR 
/GET LOWER CHAR 



/END OF LINE 
/CONVERT TO ASCII 
/PRINT 

/RETURN THE CARRIAGE ? 

/YES 

/DONE 

/PRINT ONE CHAR 

/WAIT 

/PRINT 



/SKIP OVER LINE 



/OcCR. fOlNTEH ANf HtLC 



TEMF 



/OS/8 BASIC EOITOW 



PAL8-V7 l0/2«/73 PAtiE ^->> 



339 


00553 


6214 


«0F 






3a0 


00554 


iiab 


T40 




061/1 


341 


00555 


3356 


OCA 




.*■! 


342 


00556 


7002 


HLT 






343 


00557 


7240 


cu* 


CM A 




344 


00560 


1023 


TAD 




TEMP 


345 


00561 


3023 


DCA 




TEMP 


346 


00562 


5747 


JMP 


I 


FOeCR 


347 


00563 


0000 


FINCR, 






348 


00564 


6214 


RDF 






349 


00565 


1106 


TAD 




062H 


350 


00566 


3367 


DCA 




.♦1 


351 


00567 


7402 


HLT 






3S2 


00570 


5763 


JMP 


I 


FINCR 


333 


00571 


5552 


M5GT00, 5552157461016 


354 


00572 


5746 








355 


00573 


0165 








356 


00574 


6060 








357 


00575 


0155 








ssa 


00576 


6057 








359 


00577 


5000 









/INCR, CURRENT DATA FIELD 



OS/8 


BASIC EOITOH 




PAL8-V7 10/24/72 PAt-E S 


360 




0b0k] 




PAGb 




361 


00600 


6201 


CMUOONE 


,COP 




362 


00601 


4573 




JM5 I 


[CKLF /TYPE HtAOV MfcSSA&F 


363 


00602 


4576 




JMS I 


[TYPE 


36a 


00603 


1123 




MSGRDY 




365 


00604 


6201 


MAINLUP 


.CDF 




366 


00605 


456/ 




JMS I 


tGETLIN /GET AN EOTTED L^Jf. 


367 


00606 


7650 




SNA CUA 




361^ 


00607 


5214 




JMP 


NOCOMD /NOT A COMMAND 


369 


00610 


1034 




TAD 


OLOFLAG /IN OLD MODE ? 


370 


00611 


7650 




SNA CLA 




371 


00612 


S566 




JMP I 


tCOMMAND/NO, MUST 8E A COMMAND 


372 


00613 


5204 




JMP 


MAINLUP /OTHERWISE IGNOKE 


373 


00614 


1026 


NOCOMD» 


TAD 


PTR /OR A LINE WITH A LINE 


374 


00615 


704W 




CMA 


/NUMBER ON IT, 


375 


00616 


116b 




TAD 


tLlNE 


376 


00617 


3022 




OCA 


SIZE /SET UP SIZE OF LINE. 


377 


00620 


1572 




TAD I 


[LINE+2 /IS LINE EMPTY ?? 


378 


00621 


7650 




SNA CLA 




379 


00622 


3022 




OCA 


SIZE /POSSIBLY ZERO, 


300 


00623 


1035 




TAD 


LINENO /IS IT > LAST LINE ? 


381 


00624 


7141 




CIA CLL 




3B2 


00625 


1037 




TAD 


EOFLIN 


3B3 


00626 


7640 




SZA CLA 




3Sa 


00627 


5233 




JMP 


,*4 /HI PART NOT a. FORGET LOW 


385 


00630 


1036 




TAD 


LlNENO+1 


386 


00631 


7141 




CIA CLL 




387 


00632 


1040 




TAO 


EOFLIN+1 /COMPARE LOW PARTS 


388 


00633 


7630 




SZL CLA 




389 


00634 


524b 




JMP 


NOTL*ST /NOT > LAST 


390 


00635 


4564 




JMS I 


IGETEOr /GET EOF 


391 


00636 


1023 




TAD 


TEMP /MAKE IT LOOK LIKE 


392 


00637 


3026 




DCA 


PTR /A CALL TO FINOLN 


393 


00640 


1035 




TAO 


LINENO /SAVE NEW LAST LINE 


394 


00641 


3037 




DCA 


EOFLIN 


395 


00642 


1036 




TAD 


LINENO+1 


396 


00643 


3040 




OCA 


feOFLIN+1 


397 


00644 


7410 




SKP 




398 


00645 


4563 


N0TLAS1 


fJMS I 


[FINOLN /GENERAL CASE - SEARCH 


399 


00646 


1023 


INSERT, 


TAD 


TEMP /THERl ARE (TEMP-PTR) WORDS IN 


400 


00647 


7140 




CLL CMA 


/THE OLD LINE WHICH ARE TO BE 


401 


00650 


1026 




-1*5. 


PTR /REPLACED BY C-SIZE) WORDS IN 


402 


00651 


7200 




CLA 


/KItW LINE. 


403 


00652 


6214 




ROF 




404 


00653 


7430 




SZL 




405 


00654 


1107 




TAO 


07770 


406 


00655 


1110 




TAD 


06201 


407 


00656 


3346 




OCA 


PTRFLU /GET FIELU OF START OF OLD LINE 


408 


00657 


1026 




TAD 


PTR 


409 


00660 


7141 




CLL CIA 




410 


00661 


1023 




TAO 


TEMP 


411 


00662 


1022 




TAO 


SIZE /WHICH WAY 7 


412 


00663 


7450 




SNA 




413 


00664 


5331 




JMP 


MOVE /SAME SIZE, MOVE IN Nfci-J LINE 


414 


00665 


7510 




SPA 





/OS/a BASIC EDITOf< 



ttt«» 
au 
ai7 
418 
ai9 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

43B 

439 

440 

441 

442 

443 

444 

44S 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 



k)066b 

00667 

00670 

00671 

00672 

00673 

00674 

00675 

00676 

00677 

00700 

00701 

00702 

00703 

00704 

00705 

00706 

00707 

00710 

00711 

00712 

00713 

00714 

00715 

00716 

00717 

00720 

00721 

00722 

00723 

00724 

00725 

00726 

00727 

00730 

00731 

00732 

00733 

00734 

00735 

00736 

00737 

00740 

00741 

00742 

00743 

00744 

00745 

00746 

00747 

00750 

00751 

00752 

00753 

00754 



577/' 

7041 

1023 

3025 

6214 

lllltf 

3304 

1025 

7140 

IZii 

7620 

1107 

1304 

3306 

7402 

1423 

7402 

3425 

1425 

1103 

7650 

5327 

2023 

5321 

1304 

nil 

3304 
202S 

5304 
1306 
UU 
3306 

5304 
102b 
4562 
1022 
7650 
5204 
6201 
1035 
356S 
1036 
3561 
1165 
3023 
6201 
1423 
2023 
7402 
3426 
2026 
5355 
1346 
Hit 
3346 



JMP 
CIA 
TAD 
DCA 
HOP 
TAD 
DCA 
TAD 
CLL 
TAD 
SM 
TAD 
TAD 
DCA 

TMPFLD, HUT 
TAD 

TWDFLD, HLT 
DCA 
TAD 
TAD 
SNA 
JMP 
ISZ 
JMP 
TAD 
TAD 
OCA 
ISZ 
JMP 
TAD 
TAD 
DCA 
JMP 

LWREOF, TAD 
JMS 

MOVE, TAD 
- SNA 
JMP 
CDF 
TAD 
OCA 
TAO 
DCA 

MOVENTS, TAD 
DCA 

MOVLUP, COF 
TAD 
ISZ 

PTRFLD, HLT 
OCA 
ISZ 

JMP 

TAO 
TAO 
OCA 



PALe-v7 Hi/2a/7? Hiut s-i 

EXPAND /MAKE MO!»E fyOOM rt'H KE-l I.INt 

TEMP /SHHINK THE FRt 

TOWARD /MOVE FILE OOwN TU HEHE 

06201 

TMPFLO /GET FIELD OF READ POINTER 

TOWARD 



CMA 
CLA 



TEMP 

07770 

TMPFLD 

TWDFLD 



I TEMP 



/GET FIELD OF WRITE POINTER 



I 
I 

CLA 



1 

CLA 
00 
I 
I 

I 
I 



TOWARD /MOVE DOWN 

TOWARD 

07701 /END OF FILE 7?7 

LWREOF /YES', PUT NEW LINE IN AT END 

TEMP /INCREMENT POINTERS 

.♦4 

TMPFLO /AND FIELDS IF NECESSARY 

010 

TMPFLD 

TOWARD 

TMPFLO . 

TWDFLD 

010 

TWDFLD 

TMPFLD /KEEP SHRINKING 

TOWARD /SET NEW EOF 

tSETEOF 

SIZE 

MAINLUP /IT WAS A DELETE 

LINENO /PUT IN LINE NUMBER 

[LINE 
LINEN0*1 

tLINE*l 

tLINE 
TEMP 

TEMP 
TEMP 

PTR 

PTR 

.♦4 

PTRFLO /WHATCH OUT FOR FJEUOS 

010 /(W.C, OR E.M, ?) 

PTRFLD 



/MOVE IN NEW LINE 



/INCREMENT POINTERS 



/OS/8 BASIC EUITQH 



PkLb-v? l(a/^a■ 



PA:,,f S-r- 



470 0O?o5 202^ 

471 00756 Si43 
47^ 00757 5204 



ISZ 
.(MP 
JMP 



SlZfe 

MOVLUP 
MAINLUP 



• 



• 



/OS/8 9ASIC EDITOK 



•'ALe-V? lkV,J4/7.? HiS,,t b 



473 
a74 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
49S 
494 
495 
496 
497 
498 
499 

see 

501 

502 

503 

504 

505 

506 

507 

508 

509' 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

52*. 

527 



00777 

0100(^ 

01001 

01002 

01005 

01004 

01005 

01006 

01007 

01010 

01011 

01012 

01013 

01014 

01015 

01016 

01017 

01020 

01021 

01022 

01023 

01024 

01025 

01026 

01027 

01030 

01031 

01032 

01033 

01034 

01035 

01036 

01037 

01040 

01041 

01042 

01043 

01044 

01045 

01046 

01047 

01050 

01051 

01052 

01053 

01054 

01055 
01056 
01057 
01060 
01061 
01062 
01063 
01064 



100k) 
1I?I0O 
7S)4l 
3025 
1423 
3024 
1100 
3423 
4564 
6214 
1110 
3237 
7100 
1023 
1025 
3025 
7430 
4560 
3425 
1425 
7640 
5273 
72414 
3425 
1425 
7001 
7640 
5273 
6214 
1110 
3241 
1025 
4562 
7402 
142i 
7402 
3425 
1425 

net 

7650 
5270 
7340 
1025 
3025 
7430 
5257 
1241 
1107 
3241 

102i 
3023 
7430 
5237 
123/ 



PAKt 
EXPAND, CIA 

DCA 

TAD I 

DCA 

TAD 

DCA I 

JMS I 

RDf 

TAD 

DCA 

CLL 

TAD 

TAD 

OCA 

SZL 

JMS I 

DCA I 

TAD I 

SZA CLA 

JMP 

CLA CMA 

OCA I 

TAD 1 

I AC 

SZA CLA 

JMP 

ROF 

TAO 

DCA 

TAD 

JMS I 
TMP2FL0,HLT 

TAD I 
TW02FL0,HLT 

OCA I 

TAO I 
-TAO 

SNA CLA 

JMP 

CLA CLL 

TAO 

DCA 

SZL 

JMP 

TAD 

TAD 

OCA 

CLA CLL 

TAO 

DCA 

SZL 
JMP 
TAO 



/fcXTRA HOa^ NEEDEl.' 
TOWAKU 

TtMP /SAVE THIS PLACt 
TEMP2 

037 /NOW MARK THIS PLACE 
TCMP 
IGETEOF /GET EOF 

06201 

TMP2FL0 /GET FIELD OF END OF FILE 

TEMP /MOVE FILE UP 
TOWARD /TO 
TOWARD /HERE 

tFlNCR /MIGHT 8E ACROSS A FIELD 

TOWARD 

TOWARD /IS THERE ^ENOUGH CORE 7 

COREOV /NO, GIVE ERROR 

TOWARD 
TOWARD 



COREOV /NO, GIVE ERROR 

06201 

TW02FLD /SAVE NEW EOF FIELD 

TOWARD /SAVE NEW EOF 

ISETEOF 

TEMP 

TOWARD /MOVE UP ONE WORD 

TOWARD 

07741 /IS THE MARK ? 

LASTWO /YES, PUT IN LAST WORD 

CMA 

TOWARD /BACK UP POINTERS 

TOWARD 

.♦4 

TWD2FL0 /AND FIELDS (MAYBE) 

07770 

TWD2FL0 

CMA 

TEMP 

TEMP 

TMP2FL0 
TMP2FLn 



/OS/8 BASIC EOITOK 



P4L8-V7 l»/aa//2 ^'Ali£ b-\ 



528 

52<) 

530 

531 

535 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

546 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 



aitiifes 

01066 

01067 

01070 

01071 

01072 

01073 

01074 

01075 

01076 

01077 

01100 

0U01 

01102 

01103 

01104 

01105 

01106 

01107 

01110 

01111 

01112 

01113 

01114 

01115 

01116 

01117 

01120 

01121 

01122 

0U23 

01124 

01125 

01126 

01127 

01130 

01131 

01132 

01133 

01134 

0U35 

01136 

01137 

01140 

01141 
01142 
01143 
01144 
01145 
01146 
01147 
01150 
01151 
01152 
01153 



110/ 

3237 

5237 

1024 

342b 

5557 

4576 

1105 

5556 

7201 

0053 

7640 

4555 

6041 

5302 

5777' 

4442 

5710 

6501 

4752 

6516 

5250 

5760 

6346 

4500 

0145 

4655 

4665 

4645 

0000 

6346 

4245 

7200 

7051 

4265 

4000 

1154 

4562 

3037 

3040 

5553 

0000 

1027 

7440 

5344 

7240 

5736 

1104 

7700 

5736 

1112 

3023 

1035 

7110 

3035 



TAO 

DCA 

JMP 
LASTWD, TAO 

OCA I 

JMP I 
COREOV, JMS 1 

MSGBI6 

JMP I 
BYEBYE, CLA lAC 

AND 

SZA CUA 
BYE, JMS I 

TSF 

JMP 

JMP 



07770 

TMP2FL0 

TMP2PLD 

TEMP? 

TOWARD 

[MOVE 

[TYPE 

[MAINLUP 
SWPNUM 



/PUT IN SAVtO WO«U 

/GO MOVE IN NEW LiNt 
/KILE TOO BIG 



(0(^c/ y-J? 



/IS OSa RES IN PLACE ? 

/YES IF EVEN NUMBER OF SWAPS 
[SWAP /PUT BACK 0S8 

/WAIT FOR TTY SO 0S8 DOESN'T 
,-l /TRAMPLE ON MY LINE FEED 
7605 /EXIT TO 058 



MSGBIG, 4442 » 57 10 J 650n 4752 J 6516 » 5250; 5760 J 6346 J 0500 



MSGALT, 0l45»4655f4665l46a5»0 



MSGHDY, 6346»4245|7200 



MSGWHAT, 7051 H265I 4000 



SCRATCH, TAO 

JMS I 



[TXTAREA/SCRATCH FILE 

[SETEOF 

EOFLIN /ZERO LAST LINE NUM 

E0FLIN*1 

[CMDDONE 

/LINE NUMBER NORMALIZER 



OCA 
OCA 
JMP I 
NORM, 

TAO NDIGS 

SZA 

JMP ,+3 

CL* CMA 

JMP I NORM 

TAO 07772 

SMA CLA 

JMP I NORM 

TAO 07774 

OCA TEMP 

TAD LINENO 

CLL RAR 

DCA LINENO /AND CHECK AGAIN, 



/IF THESE ARE NO DIGITS IN THE 
/LINE NUMBER THEN 
/WETURN -1. 



/IF THE LINENO HAS BEEN FILLED 
/OUT TO 6 OIGITSCLEADING 0'SI 
/THEN RETURN, 
/OTHERWISE, SHIFT RIGHT I OICIT 



• 



ff 



/OS/6 BASIC EDITOK 



58i 


B1J54 


103t> 


58a 


01155 


7010 


565 


0ll5fe 


3036 


5S6 


aU57 


202i 


587 


0U60 


5351 


588 


01161 


2027 


589 


01162 


5337 





PAL8-V7 10/^4/72 


PAGE H-g 


TAO 


LINENOtl 




RAR 






DCA 


LINENO*! 




ISZ 


TEMP 




JMP 


.-7 




ISZ 


NDIGS 




JMP 


IMORM+1 





OS/3 


BASIC EDITOh 




PAL8-vr 


lH/2a/72 PAiiH 7 


SfJH 


0117/ 


7605 










591 




am 




PAGt 






59» 


01200 


1220 


COMMAND 


,TAD 


COMTBL 


/COMMAND LIST PulNrt« 


593 


01201 


3023 




OCA 


TEMP 




59a 


01202 


2023 


r-OMLUP, 


ISZ 


TEMP 


/GET 2 CHAR COMMAND 


595 


01203 


1423 




TAD I 


TEMP 




59fe 


01204 


2023 




ISZ 


TEMP 




597 


01205 


7450 




SNA 






596 


01206 


521b 




JMP 


WHAT 


/END OF LIST 


599 


01207 


1572 




TAD I 


tLINE*2 


/IS THIS IT ? 


600 


01210 


7640 




SZA CLA 






601 


01211 


5202 




JMP 


COMLUP 


/NO, LOOK AGAIN 


60S 


01212 


1423 




TAD I 


TEMP 


/GET COMMAND ADDS 


603 


01213 


3023 




OCA 


TEMP 


/AND GO TO IT 


604 


01214 


5423 




JMP I 


TEMP 




60S 


01215 


4576 


WHAT, 


JMS I 


(TYPE 


/TYPE WHAT? 


606 


01216 


1126 




MSGWHAT 






607 


01217 


5556 




JMP I 


tMAINLUP 


608 


01220 


1220 


C0MT8L, 









609 


01221 


2226 




-5552 






610 


01222 


1400 




LIST 






611 


01223 


1723 




-6055 






612 


01224 


2725 




OLD 






613 


01225 


1336 




-6442 






614 


01226 


2223 




SAVE 






615 


01227 


1412 




•6366 






616 


01230 


2200 




RUN 






617 


01231 


1334 




-6444 






6ie 


01232 


1J31 




SCRATCH 






619 


01233 


3406 




-4372 






620 


01234 


1101 




BYE 






621 


01235 


2032 




-5746 






622 


01236 


1763 




NEW 






623 


01237 


2036 




-5742 






624 


01240 


1754 




RtNAMt 






625 


01241 


0000 











626 


01242 


0145 


WSSAVt, 


0145(64S4f3343f 4264; 5244 1 1770; 6400 


627 


01243 


6454 










628 


01244 


3343 










629 


01245 


4264 










6S0 


01246 


5244 










631 


01247 


1770 










632 


01250 


6400 










633 


01251 


0000 


HEADING 


,0 




/PRINT HEADING 


634 


01252 


4573 




JMS I 


tCSLF 


/LATER 


635 


01253 


1152 




TAD 


tFNAME 


/SET UP FOR CONVERSION 


636 


01254 


3023 




DCA 


TEMP 


/POINTER TO FILE NAME 


637 


01255 


1265 




TAD 


XTITLE 


/WHERE IT GOES 


638 


01256 


3026 




DCA 


PTH 




639 


01257 


4270 




JMS 


CONV 


/OUTPUT FIRST TWO CHARS 


640 


01260 


4270 




JMS 


CONV 


/NE)(T TWO 


641 


01261 


4270 




JMS 


CONV 


/THIRD TWO 


642 


01262 


2026 




ISZ 


PTR 


/SKIP FOR EXT 


643 


01263 


4270 




JMS 


CONV 


/OUTPUT EXTENSION 


644 


01264 


4576 




JMS I 


(TYPE 


/TYPE HEADING 



# 



/08/8 BASIC EDITOR 
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6as 

647 

64S 

b49 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

695 

694 

695 

69t. 

697 

698 

699 



01265 

01266 

01267 

01270 

01271 

01272 

01273 

01274 

01275 

01276 

01277 

01300 

01301 

01302 

01303 

01304 

01305 

01306 

01307 

01310 

01311 

01312 

01313 

01314 

01315 

01316 

01317 

01320 

01321 

01322 

01323 

01324 

01325 

01326 

01327 

01330 

01331 

01332 

01333 

01334 

0133S 

01336 

01337 

01340 

01341 

01342 

01343 

01344 

0134b 

01346 

01347 

1^1350 

01351 

01352 

01353 



1312 

4573 
5651 
0000 
1423 
0120 
7450 
1377 
1101 
0120 
3426 
1423 
0055 
7450 
7130 
1376 
1426 
3426 

zazi 

2026 
5670 
0000 
0000 
0000 
0101 
0000 
0101 
0101 
2217 
2101 
0101 
0101 
0000 
0000 
0000 
1630 

0000 

1030 
2030 
7110 
1172 
3023 
1423 
7430 
5346 
7012 
7012 
701.* 
0120 
745k) 
5732 
1060 
7440 
5361 



XTITLE, TITLE 
JMS I 



CONV, 



JMP I 



TAD 1 

AND 

SNA 

TAD 

TAD 

AND 

DCA I 

TAD I 

AND 

SNA 

CLU CML 

TAD 

TAD I 

OCA I 

ISZ 

ISZ 

JMP I 



tCHLF /FOLLOWED BY A CRLF 
HEADING 

/CONVERT TO SIX BIT ASCII 
TEMP /GET NEXT «ORU 
077 /CHECK FOR 

/SUBSTITUTE BLANKS 
(40 
07741 
077 
PTH 
TEMf 
07700 

RAR 

(.3700 

PTR 

PTR 

TEMP 

PTR 

CONV 



/SUBTRACT 37 
/SIX BITS 

/DO UPPER CHAR 



/SAME WAV 
/COMBINE THEM 



TITLE, 0;0;0r0t0U0 



010110101 



/FOR THE PROG NAME 



/SOME BLANKS 



VERSON»700*2117 /VERSION NUMBER X.Y 

VERSON"10&700*2101 

0101/0101 /MORE BLANKS 



DATE, 0>0;0>1630>0 



/DATE 



GETNC, 

TAD 

ISZ 

CLL RAR 

TAD 

DCA 

TAD I 

SZL 

JMP 

RTR 

RTR 

RTR 
TESTCH, AND 

SNA 

JMP I 

TAD 
SZA 

JMP 



/GET A CHAR FOR A FILE NAME 

/GET CHAR POINTER 

/BUMP IT 

/DIVIDE BY 2 
[LINE*2 /ADD BASE 
TEMP /GIVES AODR OF WORD 

/GET 2 CHARS 

/ODD EVEN BIT IS IN LINK 

/GO CHECK THE CHAR 



NCHARS 
NCHARS 



TEMP 



TESTCH 



077 /ONLY 6 BITS 

GETNC /END OF NAME 

07761 /WAS IT , ?? 

NOEXT /NO 
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700 


01354 


724(J 


701 


01355 


30a«2 


703 


eiJbt. 


1151 


70i 


0135/ 


3024 


70a 


01360 


5775' 


705 


01361 


1061 


706 


0136a 


74414 


707 


01363 


536b 


708 


01364 


7201 


709 


01365 


5732 


710 


01366 


1067 


711 


01367 


0120 


712 


01370 


2332 


713 


01371 


5732 



NOEXT, 



CLA 
OCA 
TAD 
OCA 
JMP 
TAD 
SZA 
JMP 
CCA 
JMP 
TAD 
AND 
ISZ 
JMP 



CM4 



lAC 
I 



SIZE 

(NAMt+3 
TEMPS 
MAMLUP 
07764 

.+3 

GETNC 

072 

077 

GETNC 
GETNC 



/3t1 SIZE TU -1 



/SET POINIEH TO FXT wORU 



/START 
/IS IT 



ON EVEN 

: ?? 



CHAR 



/YES, RETURN NONZERU 



/HESTORE THE CHAR 
/STRIPPED SIX BIT 



TO 



i 



/OS/8 BASIC eoiTOft 



PAL8-V7 l!l\/iU/7Z PAGE 8 



714 
715 
71fc 
717 
718 
719 
720 
721 
722 
723 

72a 

725 
726 
727 
728 

729 

730 

731 

732 

733 

734 

735 

73fe 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 



01375 
01376 
01377 

01400 

01401 

01402 

01403 

01404 

01405 

01406 

01407 

01410 

01411 

01412 

01413 

01414 

01415 

01416 

01417 

01420 

01421 

01422 

01423 

01424 

01425 

01426 

01427 

01430 

01431 

01432 

01433 

01434 

01435 

01436 

01437 

01440 

0144! 

01442 

01443 

01444 

01445 

01446 

01447 

01450 

01451 

01452 

01453 

01454 

01455 

01456 

01457 

01460 

01461 

01462 



1736 

4100 

0040 

1400 

1550 

1547 

1377 

7650 

5211 

4546 

1031 

7650 

555i 

3030 

3027 

4545 

5225 

1376 

7640 

5213 

4545 

5225 

1065 

4574 

5220 

1154 

3026 

4571 

7700 

4563 

6214 

1110 

3267 

3023 

4570 

5553 

4244 

5553 

4575 

5236 

0000 

1023 

2023 

1252 

3251 

7402 

5653 

1467 

1506 

1507 

1507 

1467 

1507 

1507 

1505 



UIST, 



LISTNH, 



NUMOUN, 



PAGt 
TAO I 
TAO I 
TAO 

SNA CLA 
JMP 
JMS I 
TAO 

SNA CCA 
JMP I 
OCA 
OCA 
JMS I 
JMP 
TAD 

SZA CLA 
JMP 
JMS I 
JMP 
TAD 
JMS I 
JMP 
TAO 
OCA 
JMS I 
SMA CLA 



JMS I 

RDF 

TAO 

OCA 

OCA 

LSTLUP, JMS I 
JMP I 
JMS 
JMP I 
JMS 1 
JMP 

GETFIL# 

TAO 

ISZ 

TAD 

OCA 

HLT 

JMP I 

PTRgFLO 

FRSTOIG 

DIGIT 

DIGIT 

PTR2FL0 

DIGIT 

DIGIT 

LASTDI6 



CLINE+3 /LISTNH ? 

tLINE*4 

(•4436 /PSfcUDO TEST 

LISTNH /NO HEADING 
CHEAOING/GIVE HEADING 
COPLAG /WAS CTRL/0 TYPED ? 

tCMOOONE/VES, ABORT LISTING 

NCMARS /SET POINTER 

/AND DIGIT COUNTER 
/SKIP UNTIL BLANK 
/DONE 



NOIGS 
[GETNC 
NUMOUN 
(.40 



.-4 /NO BLANK VET 

(GETNC /GET A CHAR 

NUMOUN /END OF NUMBER 

07706 /SUBTRACT 72 

(LNDIG /GO SEE IF ITS 



CTXTAREA 

PTR 

[NORM 



/IT WAS, CONTINUE 



A DIGIT 



/SET UP POINTER 
/NORMALIZE THE NUM 
/ANY NUMBER ? 

(FINDLN /YES, LOCATE IT 
/GET THE FIELD 

06201 

PTR2FL0 /SAVE IT 

TEMP 

(CTRLO 

(CMDOONE 

GETFIL 

ICMDDONE 

(TTYOUT 

LSTLUP 



/CHECK FOR CTRL/O 

/YES, EXIT 

/GET CHARACTER TO LIST 



TEMP 
TEMP 
.♦3 
.♦1 

.*1 



/PRINT IT 

/LOOP 

/GET CHARACTER FROM FILE 



/SEQUENCE OF OPERATIONS 

/GET FIRST WORD 

/FIRST DIGIT OF LINE NUMBER 

/SECOND DIGIT 

/THIRD DIGIT 

/GET NEXT WORD OF LINE NUMBER 

/FOURTH DIGIT 

/FIFTH DIGIT 

/SIXTH AND LAST DIGIT 
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769 

770 

771 

772 

773 

774 

775 

776 

77 7 

778 

779 

780 

761 

782 

783 

78a 

785 

786 

787 

768 

789 

790 

79i 

792 

793 

794 

795 

796 

797 

796 

T99 

600 

801 

802 

803 

604 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

615 

816 

817 

818 

819 

820 

621 

822 

823 



01463 

01464 

01465 

01466 

01467 

01470 

01471 

01«72 

01473 

01474 

01475 

01476 

01477 

01500 

01501 

01502 

01503 

01504 

01505 

01506 

01507 

01510 

01511 

01512 

01513 

01514 

01515 

01516 

01517 

01520 

01521 

01522 

01523 

01524 

01525 

01526 

01527 

01530 

01531 

01532 

01533 

01534 

01535 

01536 

01537 

01540 

01541 
01542 
01543 
01544 
01545 
01546 
01547 
01550 
01551 



146/ PTH«?PLO 

1526 LfeFTTXT 

1553 RITkTxT 

1550 LINFTXT 

7402 PTR2FLD,HLT 

142b TAD I 

6201 CDF 

1103 TAD 

745^ SNA 

5644 JMP I 

1120 TAD 

3024 OCA 

2026 ISZ 

5245 JMP 

1267 TAD 

nil TAD 

326/ DCA 

524S JMP 

7201 LASTDIGfCLA lAC 

3027 FRSTOIGfDCA 

1024 DIGIT, TAD 

7006 RTL 

7006 PTL 

3024 OCA 

1024 TAD 

7004 RAU 

0072 AND 

7440 SZA 

532i JMP 

102/ TAD 

7650 SNA CLA 

5245 JMP 

2027 NZDIGIT.ISZ 

1073 TAD 
5342 JMP 
1024 LeFTTXT,TAD 
70U STR 
7012 RTR 
7012 RTR 
5336 JMP 
nil RITtTXT.TAO 
3023 DCA 
1024 TAD 
0120 AND 
7450 SNA 
5344 JMP 

1074 TAD 
2244 GFRET, ISZ 
5644 JMP 

1075 ZEHOTXT.TAD 
3023 OCA 

1076 TAD 
5342 JMP 
3023 LINFTXT,nCA 
107/ TAD 



/GfcT wawo OF TEXT 
/LEFT CHAK4CTtR 
/KIGHI CHARACTER 
/LINF FtEO CHAHACtH- 
/CHECK FOR EOF 
PTR 

07701 

GETFIL /YES, RETURN UNSHIPPED 

077 

TEMP2 /NO, SAVE WORD 

PTR /BUMP POINTER 

GETFIL+l 

PTR2FL0 

010 

PTR2FLD 

GETFIL*! 

/FORCE LAST DIGIT (EVEN IF 0) 
NDI6S /ZERO DIGIT COUNT 
TEMP2 



TEMP2 /SHIFT LEFT ONE DIGIT 
TEMP2 



017 



/GET DIGIT 



NZDI6IT /ITS NOT ZERO 

NOIGS /IS IT A LEADING ZERO ? 

GETFIL+l/YES, DON'T PRINT IT 

NDIGS /NON ZERO OH NON LEADING ZERO 

0260 /SO PRINT IT 

GFRET 

TEMP2 /GET LEFT CHAR 



,♦4 

010 /SETUP FOR LEFT CHAR NEXT 

TEMP 

TEMP2 

077 /SIXBITIZE AC 

ZEROTXT /0 IS END OF THE LINE 

0237 /MAKE IT ASCII 

GETFIL 

GETFTL 

013 

TEMP 

0215 

GFRET 

TEMP 

0212 



/SETUP FOR LF NEXT 

/RETURN CR 

/CLEAR SEUUENCEW AIMU RETURN LF 



OS/8 
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DITOK 
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824 


01552 


534^ 




JMP 




GFRfcT 




825 


01553 


0000 


CTRUO, 









/CHECK FOR -0 AND "C 


826 


0155a 


6031 




KSF 






/CHECK FOR -0 


82T 


01555 


5366 




JMP 




CTRUOX 


/NO KEVBOARD 


828 


01556 


6036 




KRB 








82<9 


01557 


0062 




AND 




0177 




8Se 


01560 


1060 




TAD 




07761 




831 


01561 


7450 




SNA 








832 


01562 


5370 




JMP 




CTRU0X*2/StT FLAG OFF 


833 


01563 


1127 




TAD 




014 


/-C 7 


834 


01564 


7650 




SNA 


CLA 






83S 


01565 


5775» 




JMP 




BYEBVE 


/YES, END 


836 


01566 


2353 


CTRUOX, 


ISZ 




CTRLO 


/FIX RETURN 


837 


01567 


7201 




CLA 


lAC 




/SET FLAG »1 IF NO CTRL/0 


838 


01570 


3031 




DCA 




COFLAG 




839 


01571 


5753 




JMP 


I 


CTRLO 





/OS/8 BASIC etllTOK t^ALS-V \^fi'*/f? ^i'.t '' 

eat! 0ib?s i07b 

Sai 0157*. 774id 

BU,» 0157/ mai 

III 01600 0S GtTFN, 0*^'" /UtT » FILE NAMt C At St ^ tUM I r . hAM.^k] 

845 01601 ?52i tJCA SAVFLAG /»! FOR SAVt, f=OH OlO 0« NE^ 

846 01602 103el TAD CHNFLAG /RfcTUKNING FROM SU^ ? 

847 01603 764(9 SZA CLA 

848 01604 S21b JMP NOFUSK /YtS, DON'T FETCH USH 

849 01605 4555 JMS I [SWAP /GET OSB RESIDENT 

850 01606 132i TAD SAVFLAG /IS IT OLD OR Nfew ?? 

851 01607 765lfl SNA CLA 

852 610 7001 lAC /YES, DON'T SWAP 10000-11/77 

853 016U 3777' DCA 7746 /OO IF SAVE, SO ALTER JSW 

854 01612 62U CIF 10 /GET THE USR 

855 01bl3 4455 JMS I 07700 

856 01614 0010 10 

857 01615 303id NQFUSH, DCA NCHAHS /RESET CHAR POINTER 

858 01616 «776' BSKIP, JMS GETNC /GET A CHAR 

859 01617 5275 JMP ASKNAM /ASK FOR FILE NAME 

860 01620 1260 TAD M40 /ULANK ? 

861 01621 7640 SZA CLA 

B62 01622 5216 JMP BSKIP /NO, LOOP 

663 01623 4324 NOSKIP, JMS GETNAM /GET A NAME 

864 01624 7650 SNA CLA 

865 01625 5236 J^P USEDSK /NO DEVICE SPECIFIED. USE DSK: 

866 01626 1041 TAD NAME /PUT IN THE DEVICE NAME 

867 01627 3247 DCA OEV /AS SPECIFIED 
866 01630 1042 TAD NAME*! 

869 01631 325W OCA OEV+l 

870 01632 4324 JMS GETNAM /FETCH THE FILE NAMfe 

871 01633 7640 SZA CLA 

87? 01634 5775' JMP lOEHR /BAD SYNTAX IN FILE DESCRIPTOR 

873 01635 5242 JMP GETHAN /GO FETCH THE HANOLtH 

874 01636 1374 USEDSK, TAD C0423 /SET DEVICE NAME TO DSK: 

875 01637 3247 DCA OEV 

876 01640 1373 TAD (1300 

877 01641 325H OCA UEV+1 

878 01642 1144 GETHAN, TAD [HANDLR+l 

879 01643 3251 OCA 0EV*2 /ALSO THE HANDLER ORIGIN 

880 01644 6212 CIF 10 

881 01645 4456 JMS I 020^1 /CALL THE USR 

882 01646 0001 1 /^^TCH HANDLER BY NAMt 

883 01647 0000 DEV, 0ie»0 

884 01650 0000 

885 01651 0000 ^ ,^^ 

886 01652 5775' JMP lOERH /8AD DEVICE 

887 01653 1250 TAD UEV*1 /SAVE THE DEVICE NUMBER 

888 0165U 3052 OCA UEVNUM 

889 01655 1251 TAD 0EV*2 /AND THE HANDLER ENTRY POINT 

890 01656 3051 OCA OtVHAN 

891 01657 1323 MOVEFN, TAD SAVFLAG /vJAS IT A SAVE ? 

692 01660 7740 M40, SMA SZA CLA 

693 01661 5600 JMP I GETFN /YES, JUST RETURN 

894 01662 1041 TAD NAME /NEW OR OLD, ANY NAME GIVEN ? 
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895 


01663 


7450 


SNA 








896 


01664 


5600 


JMP 


I 


GETFN 


/NO, PROBABLV JUST A DEVI 


697 


01665 


3045 


OCA 




FNAME 


/YES, SAVE IT 


898 


01666 


1042 


TAD 




NAME+1 




899 


01667 


3046 


OCA 




FNAME+l 




900 


01670 


1043 


TAO 




NAME*2 




901 


01671 


3047 


OCA 




FNAME+2 




902 


01672 


1044 


TAD 




NAME«3 




903 


01673 


3050 


OCA 




FNAME43 




904 


01674 


5600 


JMP 


I 


GETFN 




905 


01675 


132i 


ASKNAM, TAO 




SAVFLAG 


/WAS THIS A SAVE ? 


90b 


01676 


7750 


SPA 


SNA 


CLA 




907 


01677 


5313 


JMP 




ASKNM 


/NO, GO ASK FOR A NAME 


908 


01700 


1045 


TAD 




FNAME 


/IT WAS A SAVE, ANY OLD N 


909 


01701 


7450 


SNA 








910 


01702 


5313 


JMP 




ASKNM 


/NO, GO ASK FOR ONE 


911 


01703 


3041 


OCA 




NAME 


/YES, MOVE INTO NAME 


91S 


01704 


1046 


TAD 




FNAME+1 




913 


01705 


3042 


DCA 




NAMEtl 




914 


01706 


1047 


TAD 




FNAME+2 




915 


01707 


3043 


DCA 




NAME*2 




916 


01710 


1050 


TAD 




FNAME+3 




917 


01711 


3044 


OCA 




NAME-t-S 




916 


01712 


5600 


JMP 


I 


GETFN 




919 


01713 


7201 


ASKNM, CLA 


lAC 




/ASK FOR FILE NAME 


920 


01714 


4576 


JMS 


I 


tTYPE 




921 


01715 


2167 


ASKFM 






922 


01716 


4567 


JMS 


I 


IGETLIN 


/GET THE INPUT LINE 


923 


01717 


7650 


SNA 


CLA 






924 


01720 


5543 


JMP 


I 


[WHAT 


/??? 


92S 


01721 


3030 


DCA 




NCHARS 


/SET CHAR POINTER 


926 


01722 


5223 


JMP 




NOSKIP 


/GO GET THE NAME 


927 


01723 


0000 


SAVFLAG,0 








92B 


01724 


0000 


GETNAM, 






/GET A FILE OR DEVICE NAM 


929 


01725 


3041 


DCA 




NAME 


/ZERO THE NAME SUFFER 


930 


01726 


304i> 


DCA 




NAME^l 




931 


01727 


3043 


DCA 




NAME«2 




932 


01730 


1057 


TAO 




0201 


/USE DEFAULT EXT ,BA 


933 


01731 


3044 


DCA 




NAME*3 




934 


01732 


1142 


TAD 




tNAME 


/SETUP POINTER 


935 


01733 


3024 


DCA 




TEMP2 




936 


01734 


uu 


TAD 




07774 


/SETUP SIZE (MAX 4 WORDS) 


937 


01735 


3022 


DCA 




SIZE 




938 


01736 


4545 


NAMLUP, JMS 


I 


tGETNC 


/GET A CHAR 


939 


01737 


5724 


JMP 


I 


GETNAM 




940 


01740 


7106 


CLL 


RTL 






941 


01741 


7006 


RTL 








942 


01742 


7006 


RTL 








943 


01743 


3424 


OCA 


1 


TEMP2 


/SAVE IT 


944 


01744 


454!] 


JMS 


I 


tGETNC 




945 


01745 


5724 


JMP 


I 


GETNAM 




946 


01746 


1424 


TAO 


I 


TEMP2 


/COMBINE THE 2 


947 


01747 


3424 


DCA 


I 


TEMPS 




948 


01750 


2024 


ISZ 




TEMPS 




949 


01751 


2022 


ISZ 




SIZE 


/ANY MORE ? 
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950 01752 5336 JMP NAMLUP 

951 li)i;53 5724 JMP I lifcTNAM 

q5<» 01 /5U 713k3 HENAMt, CLL CML RAH /3AvF USS AWEA 

953 01755 4a0i<) JMS GETKN /GET FILE NAME 

954 0175b 62l«» CIF IB 

955 01757 4456 JMS I 0200 /«EM0VE USR 

95b 01760 00U n /AND RESTORE 10000-11777 

957 01761 4555 JMS I [SWAP /SWAP 0S8 RESIDENT 

958 01762 555i JMP I tCMDOONE 

959 01763 1154 NEW, TAD ITXTAREA /SCRATCH 

960 01764 4562 JMS I tSETEOF 

961 01765 3057 DCA EOFLIN /ZERO LAST LINE NUM 

962 01766 30a(<) OCA EOFUIM+l 

963 01767 4200 JMS GETFN /GET THE FILE NAMt 

964 01770 4555 JMS I [SWAP /REMOVE 0S8 

965 01771 5553 JMP I [CMDDONE 




* 
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966 
967 
966 
9^9 
970 
971 
972 
973 
970 
975 
976 
977 
978 
979 
980 
981 
9S2 
963 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 

1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1B14 
101^ 
1016 
1017 
1018 
1019 
1020 



01773 
01774 
01775 
01776 
01777 

02000 
02001 

02003 
02004 
02005 

02006 

02007 

02010 

02011 

02012 

02013 

02014 

02015 

02016 

02017 

02020 

02021 

02022 

02023 

02024 

02025 

02026 

02027 

02030 

02031 

02032 

02033 

02034 

02035 

02036 

02037 

02040 

02041 

02042 

02043 

02044 

02045 

02046 

02047 

02050 

02051 

02052 

02033 

02054 

02055 

02056 

02057 

02060 



13010 

0423 

2715 

1332 

7746 

20011) 

0000 

1154 

3026 

1110 

3541 

3023 

1140 

3003 

1071 

3004 

1310 

3233 

4537 

5220 

4231 

5214 

1063 

4231 

1064 

3230 

4231 

2230 

5224 

5600 

0000 

0000 

3006 

7402 

5304 

5301 

1310 

3233 

1006 

0072 

7110 

7012 

7012 

1403 

3403 

1006 

7006 

7006 

0124 

1405 

3405 

2004 
5631 
4555 



PAGE 

PUTFIL, 

TAD 

OCA 

TAO 

OCA 1 

OCA 

TAO 

OCA 

TAD 

OCA 

TAD 

DCA 

PFLOOP, JM8 I 
JMP 



PFCTLZ, 



PFTEMP, 
PUTCH, 

PUTJMP, 



PH3, 



JM5 

JMP 

TAD 

JMS 

TAD 

DCA 

JMS 

ISZ 

JMP 

JMP 1 





DCA 

HUT 

JMP 

JMP 

TAD 

DCA 

TAO 

AND 

CUL PAR 

RTR 

RTR 

TAO I 

DCA I 

TAD 

RTL 

RTL 

AND 

TAD I 

OCA I 

ISZ 

ISZ 

JMP I 

JMS I 



/WRITE THE FILE 
tTXTAREA 

PTR /GET POINTEW TO TEXT 
06201 /GET FIELD OF TEXT 
I:PTR2FLD 

TEMP /ZERO LINE SEQUENCER 
[D8KBUF /GET AOOR OF DISK BUFFER 
SWAPTl /BUFFER POINTER 
07600 

8WAPT2 /DOUBLE WORD COUNTER 
JMPINS /SET 3 WAY SWITCH 
PUTJMP 

CGETFIL /GET A CHAR FROM TEXT AREA 
PFCTLZ /END OF FILE 

/OUTPUT IT 

/DO NEXT CHAR 

/PUT CTRL-Z 



PUTCH 

PFLOOP 

0232 

PUTCH 

07201 

PFTEMP 

PUTCH 

PFTEMP 

.-2 

PUTFIL /DONE 



/BUFFER DUMP COUNT 
/FILL WITH ZEROES 



/PUT A CHAR ONTO THE 088 FILE 
SWAPT4 /SAVE THE CHAR 

/JUMP TO CORRECT PLACE 
PHI /FIRST CHAR 
PH2 /SECOND CHAR 
JMPINS /RESTORE SWITCH 
PUTJMP 

SWAPT4 /GET THE CHAR 
017 /LOW FOUR BITS 

/INTO THE HIGH PART OF WORD TWO 

SWAPTl /COMBINE WITH CHAR 2 

SWAPTl 

8WAPT4 /GET THE HIGH FOUR BITS 

/INTO THE HIGH PART Of' WORD ONE 
07400 

SWAPT3 /COMBINE WITH WORD ONE 
SWAPT3 

SWAPTl /BUMP POINTER 

SWAPT2 /BUMP DOUBLt WORD COUNT 

PUTCH /RETURN 

tSWAP /SWAP IN 0S6 
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1021 

1022 

1023 

102A 

1025 

1026 

1027 

ie2B 

1029 

1030 

1031 

1032 

1033 

103« 

10SS 

1036 

1037 

less 

1039 

10«0 
ll«t 

1042 

!••« 
1045 

1047 
104ft 
1049 
1050 

lasi 

1052 
10S3 

1055 

1056 
1057 
105B 
1059 
1060 
1061 
1062 
1063 
106a 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
107a 
1075 



02061 4451 

02062 4200 

02063 4000 

02064 0000 

02065 5777' 

02066 2311 

02067 7410 

02070 5777* 

02071 2264 
02872 2776* 

02073 4555 

02074 1140 

02075 3003 

02076 1071 

02077 3004 

02100 5631 

02101 1003 

02102 S005 

02103 2003 

02104 1006 
00105 3409 
02106 2293 
021 0T S691 
•2110 9214 

02111 atm 

02111 0000 

02119 2059 

02114 7000 

02115 4327 

02116 9200 

SfiiHIt 

02121 3400 

02122 6211 
-.02129"'TWfr 

02124 3600 

02125 6221 

02126 5712 

02127 0000 
02130 1071 



NRBLOKi 



PH2> 
PHli 



iMPir 



"--^«S;?»3s=^s?^^>=a^;^:^; ^- ^' 



JHS I 

4200 

OSKBUP 



JMP 

ISZ 

SKP 

JMP 

ISZ 

ISZ 

JMS I 

TAD 

DCA 

TAD 

OCA 

JMP I 

TAD 

DCA 

ISZ 

TAO 

DC* I 

X9Z 

JMP I 

JflP 

*■; 



ISZ 

NDP 

JMS 

0S8RCS 

,j;ot,... ,,.- 

JMS 

0S8RES4' 
CDF 10 



OEVHAN /WRITE THIS BUFFER 



OUERR 

OUSIZe /ANY ROOM LEFT 7 



DUERR 

WRBLOK 

OULEN 

ISMAP 

tDSKBUF 

SWAPTl 

07600 

SWAPT2 

PUTCH 

SWAPTl 

SWAPT3 

SWAPTl 

SWAP74 

SMAPTl 

PUTJMP 

PUTCH 

PUTJMP* 



/N0| ERROR 

/BUMP BLOCK NUMBER 

/BUMP ACTUAL SIZE 

/SWAP BACK 

/SET UP BUFFER POINTER 



/SET UP COUNT 

/SAVE POINTER TO FIRST 

/BUMP POINTER 
/GET CHAR 
/INTO BUFFER 
/BUMP SWITCH 



/SWAP 088 RESIDENT 
SWPNUM /FLIP BYEBVE SWITCH 

SWAP2 /WITH 0S8RES THROUSH 0S8RES*577 



>/ 



'*&» 

*^... 



,:^i^,. fi'K^ 



SWAP2 
200 




% ^. 







OSBRES^ 
CDF 20 
JMP I 



SWAP2» 



02131 
02132 



3005 
1727 



02133 2327 

02134 3006 

02135 1727 

02136 2327 

02137 3347 

02140 5345 

02141 6201 

02142 100i 

02143 3406 

02144 2006 

02145 1406 

02146 3004 

02147 7402 SWPFLD, 



SWPLUPi 



TAD 

OCA 

TAO I 

ISZ 

DCA 

TAD I 

ISZ 

DCA 

JMP 

CDF 00 

TAD 

OCA t 

ISZ 

TAO I 

OCA 

HLT 



SWAP 

07600 

SWAPT3 

SWAP2 

SWAP2 

SWAPT4 

SWAP2 

SWAP2 

SWPFLO 

,♦5 

SWAPTl 
SWAPT4 
SWAPT4 
SWAPT4f, 

SwAPTg.-- 



•. 9^etJ 



i^ 



• 



f 
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1076 


02150 


140i> 


1077 


0S151 


3003 


1078 


0215S 


1004 


1079 


02153 


3a05 


1080 


021Sa 


2005 


1081 


02155 


5341 


1082 


02156 


6201 


10B3 


02157 


1003 


10Bfl 


03160 


3406 


1065 


02161 


5727 


1086 


02162 


4342 


1087 


021(i>3 


4501 


1068 


02164 


4752 


108<» 


02165 


5546 


1090 


02166 


0000 


1091 


02167 


4752 


1092 


02170 


5546 


1093 


02171 


0157 


109« 


02172 


4256 


1095 


02173 


4616 


1096 


02174 


1600 





PALb-V7 


10/24/72 


PAGE t0-2 


TAO I 


SWAPT3 


t(''',i''' 




OCA 


SKAPTl 






TAD 


SWAPT2. 


f---; ,» 




OCA I 


SWAPT3 






ISZ 


SWAPT3 






JMP 


8WPUUP- 






COP 00 








TAD 


SWAPTl 






OCA I 


SWAPT4 






JMP I 


SWAP2 







BADFILr 4342>450U4752rS546;0 



ASKFN, 4752;5546»0157»4256»4616;i600 
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1097 
10«»8 
1099 
1100 
1101 
1102 
1103 
1104 
1105 

n0(> 

1107 
1108 
1109 
1110 

nil 

1112 
1113 

Ilia 
1115 

1116 

HIT 
lue 

1119 
1120 
1121 
1122 
1123 

n2« 

1125 
112b 
112T 
112a 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1136 
1139 
1140 
1141 
1142 
1143 
114a 
1145 
U4t, 
1147 
1146 
1149 
1150 
1151 



0217b 
02177 

02200 

02201 

02202 

02203 

02204 

02205 

02206 

02207 

02210 

02211 

02212 

02213 

02214 

02215 

02216 

02217 

02220 

02221 

02222 

02223 

02224 

02225 

02226 

02227 

02230 

02231 

02232 

02233 

02234 

02235 

02236 

02237 

02240 

02241 

02242 

02243 

0224a 

02245 

02246 

02247 

02250 

02251 

02252 

02253 

0225a 

02255 

02256 

02257 

02260 

02261 

02262 

02263 



2266 
2720 

1550 HUN, 
154/ 
1377 
7640 

asab 

1172 
3023 

1136 

3026 

1123 

3024 

1426 

2026 

3423 

2023 

2024 

5213 

2033 

5226 

3033 SAVE, 

1052 

3321 

7201 GFN, 

4535 

1265 

3236 

1052 

6212 

4456 

0003 

0000 SAV8LK, 

0000 

5776* 

1236 

3775* 

1237 

377a' 

3266 

6212 

aas6 
0011 

4555 

4773' 

4555 

1033 

3772' 

6212 

aa55 

0010 

1052 
6212 

a456 



PAGE 

TAD I 

TAD I 

TAO 

SZA CLA 

JMS 1 

TAO 

DCA 

TAO 

DCA 

TAD 

DCA 

TAO I 

ISZ 

DCA I 

ISZ 

ISZ 

JMP 

ISZ 

JMP 

OCA 

TAO 

OCA 

CLA lAC 

JMS I 

TAD 

DCA 

TAD 

CIF 

JMS I 

3 





JMP 

TAD 

DCA 

TAO 

OCA 

DCA 

CIF 

JMS I 

11 

JMS I 

JMS 

JMS I 

TAD 

DCA 

CIF 

JMS I 

10 

TAO 

CIF 

JMS I 



tLINE*3 /RUNNH ? 

tLINE*4 

(-3057 



/GIVE A HEADING 
/SET UP FAKE LINE 



/MOVE FAKE LINE INTO ''LINE' 



IHEAOING 

[LINE+2 

TEMP 

CWSSAVE 

PTR 

07771 

TEMP2 

PTR 

PTR 

TEMP 

TEMP 

TEMP2 

.-5 

RUNFLAG /SET RUN FLAG 

GFN 

RUNFLAG 

DEVNUM 

OLOOEV 



tGETFN 

XNAME 

SAV8LK 

DEVNUM 

10 

0200 



/CLEAR THE HUN FLAG 
/SAVE CURRENT DEVICE NUM 
/INCASE WE CHANGE 
/SET SAVFLAG 
/GET THE DEVJNAME.EX 
/SET UP ENTER 
/POINTER TO FILE NAME 
/GET DEVICE NUMBER 

/ENTER FILE 

/STARTING BLOCK GOES HERE 
/SIZE GOES HERE 



lOERR 

SAVBLK 

MRBLOK 



/PUT BLOCK NUMBER 

/INTO WRITE 
8AVBLK*i/PUT SIZE 
OUSiZE /SOMEWHERE TOO 
OULEN /ZERO BLOCK COUNT 
10 
0200 /DUMP USR 

CSWAP /AND NOW 0S8 

PUTFIL /OO THE SAVE 

[SWAP /GET 0S8 

RUNFLAG /SET NO SWAP BIT IF RUN 

7746 

10 /GET THE USR 

07700 

DEVNUM /GET DEVICE NUMBER 

10 

0201!! /CLOSE THE FILE 
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1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
116« 
1165 
11*6 
1167 
1168 
1169 

lira 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1161 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

120*> 



02264 

02265 

02266 

02267 

02270 

02271 

02272 

02273 

02274 

02275 

02276 

02277 

02300 

02301 

02302 

02303 

02304 

02305 

02306 

02307 

02310 

02311 

02312 

02313 

02314 

02315 

02316 

02317 

02320 

02321 

02322 

02323 

02324 

02325 

02326 

02327 

02330 

02331 

02332 

02333 

02334 

02335 

02336 

02337 

02340 

02341 

02342 

02343 

02344 

0234S 

02346 

02347 

02350 

02351 

02352 



0004 

0041 

0000 

5776' 

1033 

7640 

5771* 

1321 

7041 

1052 

7650 

5314 

1321 

3052 

1114 

3310 

1052 

6212 

4456 

0001 

0000 

5776' 

1310 

3051 

6212 

4456 

0011 

4555 

5553 

0000 

000ld 

1154 

3023 

1023 

3026 

1423 

1103 

7450 

5722 

1120 

7141 

1035 

7450 

5347 

7620 

5722 

ZfdZi 

7410 

4560 

4534 

5325 

2023 

7410 

4560 

1423 



XNAME, 
QULEN, 



DEVN, 



HNDLOK, 



OLDDEV, 
FINDLN, 



SEARCH, 



CONTIN, 
SAMEIST 



4 

NAMb 



JMP 

TAD 

SZA 

JMP 

TAO 

CIA 

TAD 

SNA 

JMP 

TAD 

OCA 

TAO 

OCA 

TAD 

CIF 

JMS 

1 



JMP 

TAO 

DCA 

CIF 

JMS 

II 

JMS 

JMP 





TAD 

DCA 

TAD 

DCA 

TAD 

TAO 

SNA 

JMP 

TAO 

cue 

TAD 
SNA 
JMP 
SNL 
JMP 
ISZ 
SKP 
JMS 
JMS 
JMP 
,ISZ 
SKP 
JMS 
TAD 
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/SIZE 
IOEK« 
RUNPLAG /WAS IT A RUN ? 



CUA 



CLA 



CIA 



ODRUN /YES 

OLDDEV /IS OLD DEVICE 

/THE SAME AS 
OEVNUM /THE NEW ONE ?7 

HNOLOK /YES, THE HANDLER IS OK 

OUOOEV /RESTORE DEVICE NUMBER 

OEVNUM 

(HANOIR'^1 

DEVN /SET UP HANDLER LOAD AODR 

OEVNUM 

10 

0200 



lOERR 

DEVN /RESET THE HANDLER ADDRESS 

OEVHAN 

10 /GET RID OF THE USR 

0200 

CSWAP /REMOVE OSS AGAIN 
tCMODQNE 

/FIND A LINE 
[TXTAREA 
TEMP 

TEMP /COMPARE THE NUMBER OF 
PTR /THIS LINE WITH THE SPOT 
TEMP /IN THE TEXT AREA, 
07701 

FINDLN /NEW LINE GOES AT EOF 
077 

LlNENO 

SAMEIST 



CLA 
I 



FINDLN 
TEMP 

tFINCR 
tPASS 
SEARCH 
TEMP 

tFINCR 
TEMP 



/INSERT NEW LINE 

/IF ITS GREATER KEEP SEARCHINb. 
/FIRST HALF OF LINE NUM SAME 



/OS/8 BASIC EDITDW PAUa-V7 l0/«»4/7a PAGE ll-S 

1207 02353 nai CLL CIA /CHECK SECOND HALF 

1208 02354 103b TAO LINEMO+1 

1209 02355 7450 SNA 

1210 0235b 53bb JMP SAMt2ND /HfcPUACt OLD WITH Nfci^ 

1211 02357 7630 SZU CLA 

1212 023b0 5345 JMP CONTIN 

1213 02361 4533 JMS 1 ^^OtCk 

1214 02362 1023 TAD TEMP 

1215 02363 3026 PCA PTR 

1216 02364 5722 JMP I PINDLN /INSERT NEW LINE 

1217 02365 4534 SAME2ND,JMS I [PASS 

1218 02366 5722 JMP I FINDLN 
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1219 


02371 


2400 








1220 


02372 


7746 








1221 


02373 


2000 








12?2 


02374 


2111 








1223 


02375 


2064 








1220 


02376 


2715 








1225 


02377 


4721 








1286 




2400 


PAGE 






122T 


02400 


1377 OORUN, 


TAD 


(INF0*11/3ET UP SOME OF INFO BLOCK 


1226 


02401 


3010 


OCA 


X10 




1229 


02402 


6211 


CDF 


10 




1230 


02403 


1051 


TAD 


DEVHAN 


/SAVE DEVICE HANOLEH ADDRESS CDSKO 


1231 


02404 


3410 


DCA I 


X10 




1232 


02405 


7126 


CLL CML 


RTL 


/SAVE DEVICE NUMBER 


1233 


02406 


iaia 


DCA I 


X10 




1234 


02407 


6201 


CDF 






1235 


02410 


1776* 


TAD 


SAVBLK 


/SAVE STARTING BLOCK 


123fc 


02411 


6211 


CDF 


10 




1237 


02412 


3410 


DCA I 


X10 




123S 


02413 


1045 


TAD 


FNAME 


/SAVE FILE NAME 


1239 


02414 


3410 


DCA I 


xie 




1240 


02415 


1046 


TAD 


FNAME+l 




1241 


02416 


3410 


DCA I 


)tl0 




1242 


02417 


1047 


TAD 


FNAME+2 




1243 


02420 


3410 


DCA I 


X10 




1244 


02421 


1050 


TAD 


FNAME+3 




1245 


02422 


3410 


DCA I 


X10 




1246 


02423 


6201 


CDF 






1247 


02424 


4315 


JMS 


XMOVE 


/MOVE THIS PAGE INTO FIELD 1 


1248 


02425 


6201 


COF 






1249 


02426 


2400 


OORUN 






1250 


02427 


6211 


CDF 


10 




1251 


02430 


7600 


• 200 






1252 


02431 


6213 


CDF CIF 


10 


/GO TO THE FIELD ONE COPY 


1253 


02432 


4315 RUNOO, 


JMS 


XMOVE 


/MOVE THE HANDLER INTO FIELD 1 


1254 


02433 


6201 


COF 






1255 


02434 


4400 


HANOLR 






1256 


02435 


6211 


CDF 


10 




1257 


02436 


7400 


«400 






1258 


02437 


1775' 


TAD 


INF0*1 


/GET START OF BCOMP.SV 


1259 


02440 


3245 


DCA 


BCBLOK 




1260 


02441 


6202 


CIF 






1261 


02442 


4774* 


JMS 


7607 


/READ IN THE COMPILER 


1262 


02443 


3700 


ecsizt 






1263 


02444 


0000 









1264 


02445 


0000 BCBUOK, 









1265 


02446 


527J 


JMP 


WHUPS 




1266 


02447 


431t> 


JMS 


XMOVE 


/MOVE BACK THE HANOLEH 


1267 


02450 


6211 


COF 


10 




1268 


02451 


4400 


HANDLR 






1269 


02452 


6201 


COF 






1270 


02453 


740(d 


-400 






1271 


024S4 


7201 


CLA lAC 




/OPEN THE TEMP FILE 


1272 


02455 


4773' 


JMS 


200 




1273 


02456 


0003 


3 
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1274 
1875 
127*. 
1277 
1278 
1279 
_J280 
1281 
1282 
1283 
128a 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 



02457 
02460 
02461 
02462 
02463 
02464 
02465 
02466 
02467 
02470 
02471 
02472 
02473 
02474 
02475 
02476 
02477 
02500 
02501 
02502 
02503 
02504 
02505 
02506 
02507 
02510 
02511 
02512 
02513 
02514 
02515 
02516 
02517 
02520 
02521 
02522 
02523 
02524 
08525 
02526 
02527 
02530 
02531 
02532 
02533 
02534 
02535 
02536 
02537 
02540 
02541 
02542 

02543 
02544 



254/ 

0000 

5273 

4773* 

0013 

1257 

3772* 

1260 

3777' 

3771* 

6203 

5770* 

1367 

4307 

1366 

4307 

1365 

4307 

1364 

4307 

6041 

5303 

6203 

5775* 

0000 

6041 

5310 

6046 

7200 

5707 

0000 

6214 

1363 

3340 

4343 

3331 

4343 

3342 

4343 

3333 

4343 

33'J3 

7402 

1742 

7402 

3742 

2342 

2343 

5331 

7402 

S71b 

0000 
0000 

1715 



TMPBLK, 



MHUPSi 



TTYO, 



XMOVE, 



MFFLO, 
MTFLO, 

MOVRTN, 

MFPTR, 

MCNT, 

GMOVE, 



TMPFIL 



JMP 

JMS 

13 

TAD 

OCA 

TAD 

OCA 

OCA 

CIF COP 

JMP 

TAD 

JMS 

TAD 

JMS 

TAD 

JMS 

TAD 

JMS 

TSP 

JMP 

CDF CIF 

JMP 



T5F 

JMP 

TLS 

CUA 

JMP I 



RDF 

TAO 

DCA 

JMS 

OCA 

JMS 

DCA 

JMS 

OCA 

JMS 

OCA 

MLT 

TAO I 

HLT 

OCA I 

ISZ 

ISZ 

JMP 

HLT 

JMP 1 




TAD I 



WHUPS 

2k)0 /RESET SYSTEM TABLES 

/AND REMOVE TENTATIVE FILES 
TMPBLK /SAVE ITS START 
lNFO+10 
TMPBLK*! 

INF0*11 /AND ITS MAX LENGTH 
7b44 /KILL R Si«lirCH 



SCBE 

(123 

TTYO 

(131 

TTYO 

(15 

TTYO 

(12 

TTYO 

.-1 
7605 



GN /GO START THE COMPILER 
/PRINT SY ERROR 



TTYO 



(6203 

MOVRTN 

GMOVE 

MFFLO 

GMOVE 

MFPTR 

GMOVE 

MTFLO 

GMOVE 

MCNT 



/WAIT FOR FLAG 



/RETURN TO 0S8 



/GET CALLING FIELD 
/PLUS CIF COF 

/FOR RETURN 

/GET FROM FIELD 

/GET ADDRESS 

/GET TO FIELD 

/GET COUNT 



MFPTR /MOVE IT 

MFPTR 
MFPTR 
MCNT 
MFFLO 

XMOVE 



XMOVE 



/GET ARG FOR MOVE 



• 
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1329 


025«5 


2315 


ISZ XMOVE 


1330 


02546 


5r4i 


JMP I GMOVE 


1331 


02547 


0201 


TMPFIL» FILENAME BASIC, TM 


1332 


02550 


2311 




1333 


02551 


0300 




1334 


02552 


2415 
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1335 


02563 


6203 








1336 


02564 


0012 








1537 


02565 


0015 








133B 


02566 


0131 








1339 


02567 


0123 








13«0 


02570 


7001 








1341 


02571 


7644 








1342 


02572 


7614 








1343 


02573 


0200 








13«« 


02574 


7607 








isas 


02575 


7605 








13«6 


02576 


2236 








13«7 


02577 


7615 








1348 




2600 


PAGE 






1349 


02600 


0000 


GETCH, 




/GET A CHARACTER FROM 


13S0 


02601 


1034 


TAD 


OLDFLAG 


/INPUT FROM A FILE ? 


1351 


02602 


7640 


SZA CLA 






1352 


02603 


5211 


JMP 


FILEIN 


/YES 


1353 


02604 


6031 


KSF 






1354 


02605 


5204 


JMP 


.-1 




1355 


02606 


6036 


KH» 






1356 


02607 


0062 


AND 


0177 




1357 


02610 


5600 


JMP I 


GtTCH 




135a 


02611 


2360 


FILEIN, ISZ 


COUNT 


/ANYTHING IN BUFFER ? 


1359 


02612 


5236 


JMP 


NOREAD 


/YES. NO READ 


1360 


02613 


1070 


TAD 


07200 


/SET BUFFER COUNT 


1361 


02614 


3360 


OCA 


COUNT 




1362 


02615 


1140 


TAD 


tOSKSUF 


/SET BUFFER POINTER 


1363 


02616 


3021 


DCA 


RDPTR 




1364 


02617 


1357 


TAD 


ROJMP 


/RESET JUMP 


1365 


02620 


3236 


DCA 


NOREAD 




1366 


02621 


4555 


JMS I 


tSWAP 


/GET ose 


1367 


02622 


1343 


TAD 


RDSlZfc 


/ANY ROOM LEFT ? 


1368 


02623 


7450 


SNA 






1369 


02624 


5320 


JMP 


INERR 


/BAD END OF IFILE 


1370 


02625 


7001 


lAC 






1371 


02626 


3343 


DCA 


ROSIZE 




1372 


02627 


4451 


JMS I 


DEVHAN 


/READ NEXT BLOCK 


1373 


02630 


0200 


200 






1374 


02631 


4000 


OSKBUF 






1375 


02632 


0000 


PDBLOK, 






1376 


02633 


5320 


JMP 


INERR 




1377 


02634 


2232 


ISZ 


HDBLOK 


/BUMP BLOCK NUMBER 


1378 


02635 


4555 


JMS I 


[SMAP 


/AMAY MITH 0S8 


1379 


02636 


7402 


NOREAD, HUT 




/3W UNPACK JUMP 


1380 


02637 


5262 


JMP 


INCHRl 




1381 


02640 


5257 


JMP 


TNCHR2 




1382 


02641 


1357 


INCHS3, TAD 


ROJMP 


/RESET Si«IITCH 


1383 


02642 


3236 


DCA 


NOREAO 




138« 


02643 


1421 


TAO I 


RDPTR 


/fJET LOW 4 BITS 


1365 


02644 


2021 


ISZ 


RDPTR 


/BUMP POINTER 


1386 


02645 


0124 


AND 


07403 


/MASK IT 


1367 


02646 


7112 


CLL RTR 




/SHIfT RIGHT 4 


1388 


02647 


7012 


RTR 






1389 


02650 


3023 


DCA 


TEMP 


/SAVE 



# 



/OS/8 BASIC EDITOK 



# 



PALe-V7 10/24//^ PAGE 13-1 



1390 


02651 


1420 




TAO 


I 


RDTMP 


/GET HIGH 4 BITS 


1391 


02652 


0124 




AND 




07400 




1392 


02653 


1023 




TAD 




TfcMP 


/COMBINE THEM 


1393 


02654 


7112 




CLL 


RTH 




/SHIFT MIGHT 4 


139« 


02655 


7012 




RTH 








1395 


02656 


5264 




JMP 




AMD17 7 


/GO FINISH 


1396 


02657 


1021 


INCHR2, 


TAO 




RDPTR 


/SAVE AODR OF FIRST WORO 


1397 


02660 


3020 




OCA 




RDTMP 




1398 


02661 


2021 




ISZ 




RDPTR 


/9UMP POINTER 


1399 


02662 


1421 


INCHRl, 


TAD 


I 


RDPTR 


/GET NEXT CHAR 


lazia 


02663 


2236 




ISZ 




NOREAO 


/BUMP SWITCH 


1021 


02664 


0062 


AND177, 


AND 




0177 


/MASK 7 BITS 


1102 


02665 


1116 




TAD 




07746 


/CHECK FOR -Z 


1403 


02666 


7450 




SNA 








1404 


02667 


5272 




JMP 




ENDOLO 


/EOF 


1405 


02670 


1066 




TAO 




032 


/RESTORE CHAR 


1406 


02671 


5600 




JMP 


I 


GETCH 




1407 


02672 


3034 


ENOOLD, 


OCA 




OLDFLAG 


/KILL OLD FLAG 


140S 


02673 


1032 




TAD 




CHNFLAG 


/WAS IT A RETURN FROM RUN ? 


1409 


02674 


765ii) 




SNA^UA 






1410 


02675 


5553 




JMP 


I 


ICMDOONE/NO, JUST AN OLD COMMAND 


1411 


02676 


3032 




OCA 




CHNFLAG 


/KILL Flag 


1412 


02677 


1377 




TAO 




(INFO-4164 


1413 


02700 


3010 




OCA 




)(10 


/PICK UP NAME FROM INFO BLOCK 


1414 


02701 


1410 




TAO 


I 


X10 


/(WHICH IS SWAPPED OUT) 


1415 


02702 


3045 




OCA 




FNAME 




1416 


02703 


1410 




TAD 


I 


X10 




1417 


02704 


3046 




OCA 




FNAME+1 




1418 


02705 


1410 




TAD 


I 


X10 




1419 


02706 


3047 




OCA 




FNAME*2 




1420 


02707 


1410 




TAD 


1 


X10 




1421 


02710 


3050 




DCA 




FNAME+3 




1422 


02711 


5553 




JMP 


I 


tCMODONE/DONE WITH RETURN 


1423 


02712 


3050 


OLDBAOi 


OCA 




FNAME+3 


/TRY WITHOUT EXT 


1424 


02713 


2I13S 




ISZ 




TEMP 


/OR HAVE WE ALREADY ? 


1425 


02714 


5334 




JMP 




OLDTHY 


/NO, NOT YET 


1426 






lOEHR, 










1427 


02715 


6212 


INEHRX, 


CIF 




10 




1428 


02716 


4456 




JMS 


I 


0200 


/DISMISS USR 


1429 


02717 


0011 




It 








1430 






OUERRr 










1431 


02720 


3034 


INERR, 


OCA 




OLDFLAG 


/KILL OLD STATUS 


1432 


02721 


4555 




JMS 


I 


[SMAP 


/OUT WITH 0S8 


1433 


02722 


4576 




JMS 


I 


ITVPE 


/PRINT MESSAGE 


1434 


02723 


2162 




BAOFIL 






1435 


02724 


5556 




JMP 


I 


[MAINLUP 


1436 


02725 


1154 


OLD, 


TAO 




tTXTAREA/SCRATCH FILE 


1437 


02726 


4562 




JMS 


I 


[8ETEUF 




1438 


02727 


303/ 




DCA 




FOFLIN 


/ZERO LAST LINE NUM 


1439 


02730 


304bJ 




DCA 




eOFLIN* 


I 


1440 


02731 


453S 




JMS 


I 


I6ETFN 


/GET FILE NAME 


1441 


02732 


7144 




CUL 


CMA 


RAL 


/SET RETRY COUNT 


1442 


02733 


3023 




DCA 




TtMP 




1443 


02734 


n5«i 


OLDTRV, 


TAO 




IFNAMt 


/POINTEW TO FILE NAME 


144a 


02735 


3342 




OCA 




SB 


/INTO LOOKUP CALL 



/OS/8 BASIC EDITOR 



1445 
144(> 
1447 
144B 
1449 
1450 
1451 
1458 
1453 
1454 
1455 
145b 
1457 
145S 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 



02736 
02737 
02740 
02741 
02742 
02743 
02744 
02745 
02746 
02747 
02750 
02751 
02752 
02753 
02754 
02755 
02756 
02757 
02760 
02761 
02762 
02763 
02764 
02765 
02766 
02767 
02770 
02771 
02772 
02773 
0277<t 
02775 
02776 



1052 
6212 
4456 
0002 
000lei 
0000 
5312 
1342 
7450 
2343 
3232 
7201 
3034 
7240 
3360 
4555 
5556 
5237 
0000 
0000 
3376 
6214 
1110 
3374 
1120 
3776 
5761 
0000 
1376 
3023 
6201 
5771 
5000 



RDSIZE, 



TAD 

CIF 

JMS I 

2 





JMP 

TAD 

SNA 

ISZ 

OCA 

CUA lAC 



ROJMP, 
COUNT, 
SETEOF, 



GETEOF, 

EOFFLD, 
EOFAOR, 
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/GET DEVICE NUMBER 
/LOOKUP FILE 



DEVNUM 

10 

0200 



QL08A0 
SB 

RDSIZE 

HDBLOK 



/START GOES HERE 
/SIZE GOES HERE 
/BAP FIUE 
/MOVE BLOCK 

/SET COUNT TO 4095 IF NOT O.A, 



/SET SWITCH 
DCA OLDFLAG /INPUT COMING FROM FILE 
CLA CMA /SET COUNT TO INITIALIZE REAO 



DCA 

JMS I 

JMP I 

JMP 





DCA 

RDF 

TAD 

DCA 

TAD 

OCA I 

JMP I 



TAD 

DCA 

CDF 

JMP I 

TXTAREA 



COUNT 

[SWAP /MOVE QS8 

[MAINLUP/DO OLD 

NOREAO+1 



EOFAOR 

06201 

EOFFLD 

077 

EOFAOR 

8ETE0F 

EOFAOR 
TEMP 

GETEOF 



/SET NEW EOF 
/SAVE AOOR 
/GET FIELD 

/SAVE IT 
/STORE EOF 



/RETRIEVE EOF INFO 
/FIRST ADDR 

/THEN THE FIELD 



t 



/OS/8 BASIC EDITOR 



PALB-V7 X^/mnZ PAGE la 



1478 

ia79 

1480 

1461 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 



02777 



03000 

03001 

03002 

03003 

03004 

03005 

03006 

03007 

03010 

03011 

03012 

03013 

03014 

03015 

03016 

03017 

03020 

03021 

03022 

03023 

03024 

03025 

03026 

03027 

03030 

03031 

03032 

03033 

03034 

03035 

03036 

03037 

03040 

03041 

03042 

03043 

03044 

03045 

03046 

03047 

03050 

03051 

03052 

03053 

03054 

03055 

03056 

03057 

03060 

03061 

03062 

03063 



3421^ 
300k} 

0000 

000Jd 

014!) 

6454 

3343 

4264 

5244 

1770 

6400 

5227 

6213 

T201 

3777* 

6201 

4776 

0010 

6212 

4775 

0013 

6046 

4300 

2032 

5774' 

6046 

1120 
3554 
4300 
1411 
7450 
5254 
3243 
7201 
6212 
4775 
0002 
0000 
0000 
527b 
7001 
6211 
1243 
3410 
6201 
5233 
7201 
6212 
4775 
0002 
3333 
0H0k} 
526b 
1260 



PAGfe 
LINE, /THk TELETYPE LINE aUFFER. 

WSNAME, 01 ; 01 45; 6454 > 33431 4264 J 5244 n 7 70 ,'6400 



START, 




/IT WAS RAN 
/NO SWAP 



7700 /FETCH USR 




JMP 
DC* 

CLA lAC 
CIF 



JMS 
2 

XXXXSV, 



LUBUF, 





JMP 

lAC 

COF 

TAD 

nCA I 

COF 

JMP 

CLA lAC 

CIF 

JMS I 

2 

BUFN 



JMP 

TAO 



/RESET SYSTEM TABLES 



/SET TTY FLAG 
GtTOAT /SET UP TITLE 
CHNFLAG /TELL ABOUT RETURN FROM RUN 
OLD /READ IN OLD WORK SPACE 

077 

CTXTAREA 

GETOAT /SET UP TITLE 

Xll /LOOK UP SOME SAVE FRES 

LUBUF /GO FIND BASIC. UF 
XXXXSV /SAVE POINTER TO NAME 

10 
(200 



NG 
10 

xxxxsv 

X10 
FINOSV 

10 
C200 



/SAVE BLOCK PLUS 1 
/IN INFO AREA 

/FIND BASIC, UF 



.♦3 
.-3 



/OK IF MISSING 



/OS/8 BASIC EDITOK PALtt-V7 l0/<J4/72 PAliE la-l 

1533 0306a 7001 lAC /SAVE BLOCK ♦! 

1534 03065 6211 COF 10 

1535 03(966 34113 DCA I tltd 

1536 03067 6201 CDF 

1537 03070 7201 CI.A lAC /TYPE WITH NO CARRUGt RETURN 

1538 03071 4576 JMS I tTVPE /"OLD OH nEw -- " 

1539 03072 3350 OLDNEw 

1540 03073 4555 JMS I [SWAP 

1541 03074 5773' JMP MAINLUP 

1542 03075 4576 NG, JMS I {TYPE /PART OF SYSTEM MJSSING 

1543 03076 3337 MISING 

1544 03077 5772' JMP 7605 

1545 03100 0000 GETDAT, /PUT OSS DATE INTO THE TITLE 

1546 03101 6211 COF 10 

1547 03102 1771' TAD 7666 /GET DATE WORD 

1548 03103 6201 CDF 

1549 03104 3024 DCA TEMP2 /SAVE IT 

1550 03105 1024 TAD TEMP2 

1551 03106 7450 SNA 

1552 03107 5700 JMP I GETDAT /NO DATE 

1553 03110 0124 AND 07400 /GET MONTH 

1554 03111 7106 CLL RTL /SHIFT SOME 

1555 03112 7006 RTL 

1556 03113 7006 RTL 

1557 03114 1370 TAD (MONTHS-3 

1558 03115 3012 OCA X12 

1559 03116 1367 TAD COATE-1 /SET UP POINTER TO DATE 

1560 03117 3013 DCA )(t3 

1561 03120 1024 TAD TEMP2 /GET DAY 

1562 03121 7012 RTR 

1563 03122 7010 RAR 

1564 03123 0100 AND 037 

1565 03124 1366 TAD (NUMS-1 /GET NUMBERS 

1566 03125 3023 DCA TEMP 

1567 03126 1423 TAD 1 TEMP 

1568 03127 3413 OCA I X13 /INTO DATE 

1569 03130 14U TAD I X12 /GET MONTH CHARS 

1570 03131 3413 DCA I X13 

1571 03132 1412 TAD I X12 

1572 03133 3413 OCA I X13 

1573 03134 1024 TAD TEMP2 /GET YEAR 

1574 03135 0365 AND (7 

1575 03136 1364 TAD (21 

1576 03137 7106 CLL RTL 

1577 03140 7006 RTL 

1578 03141 7006 RTL 

1579 03142 2013 ISZ X13 /THE WORD WITH -7 IS THfcRE 

1580 03143 3413 DCA I X13 /STORE LAST DIGIT OF YEAR 

1581 03144 5700 JMP I GETDAT 



/OS/B BASIC EDITQK 



PAUa-V? 10/^4/72 PACE 15 



1562 


03164 


0021 






1563 


03165 


0007 






156tt 


03166 


3237 






1585 


03167 


1324 






1586 


03170 


3175 






1587 


03171 


7666 






1586 


03172 


7605 






1589 


03173 


0604 






1590 


03170 


272^ 






1591 


03175 


0200 






1592 


03176 


7700 






1593 


03177 


7746 






159« 




3200 


PAGE 




1595 


03200 


165i MONTHS, 1653»4257 


/•JAN 


1596 


03201 


4257 






1597 


03202 


1647 


164714643 


/-FEB 


1598 


03203 


4643 






1599 


0320tt 


1656 


165614263 


/-MAR 


tbee 


03205 


4263 






ifc0i 


03206 


1642 


164216263 


/•APR 


16(92 


03207 


6263 






1603 


03210 


1656 


165614272 


/-MAY 


1604 


03211 


4272 






1605 


03212 


1653 


165316657 


/-JUN 


1606 


03213 


6657 






1607 


03214 


1653 


165316655 


/•Jul 


1606 


03215 


6655 






1609 


03216 


1642 


164216650 


/-AUG 


1610 


03217 


6650 






1611 


03220 


1664 


166414661 


/•SEP 


1612 


03221 


4661 






1613 


03222 


1660 


1660>4465 


/-OCT 


I6ia 


03223 


4465 






1615 


03224 


1657 


16S7>6067 


/-NOV 


1616 


03225 


6067 






1617 


03226 


1645 


1645M644 


/-DEC 


1618 


03227 


4644 






1619 


03230 


2122 MUMS, 2122I2123;2124>2125;2 


1620 


03231 


2123 






1621 


03232 


2124 






1622 


03233 


2125 






1623 


03234 


2126 






162a 


03235 


2127 






1625 


03236 


2130 






1626 


03217 


2131 






1627 


03240 


2132 






1628 


03241 


2221 


222U2222)2223>2224>2 


1629 


03242 


2222 






1630 


03243 


2223 






1631 


03244 


2224 






1633 


032«5 


^i^'i 






1633 


03246 


2226 






163a 


03247 


2227 






1635 


03250 


223«} 






1636 


03251 


2231 







/DS/8 BASIC EDITOH 



1637 
163B 
Ibit 

lfe«l 

Idas 

164(1 
1*45 
1«.«6 
1647 
1648 
1649 
1650 
1651 
16S2 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1660 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 



03252 
03255 
03254 
03255 
03256 
03257 
03260 
03261 
03262 
03263 
03264 
03265 
03266 
03267 
03270 
03271 
03272 
03273 
03274 
03275 
03276 
03277 
03300 
03301 
03302 
03303 
03304 
03305 
03306 
03307 
03310 
03311 
03312 
03313 
03314 
03315 
03316 
03317 
03320 
03321 
03322 
03323 
03324 
03325 
03326 
03327 
03330 
03331 
03332 
03333 
03334 
03335 
03336 
03337 
03340 



2232 
2321 
232d 
?.S?.S 
2324 
232S 
2326 
2327 
233ii9 
2331 
2332 
2421 
2422 
3277 
3303 
3307 
3313 
3317 
3323 
3387 
0000 
0201 
2311 
0300 
2326 
0203 
1715 
2000 
2326 
0214 
1701 
0400 
2326 
0222 
2423 
0000 
2326 
0201 
2311 
0300 
0106 
0201 
2311 
^300 
2306 
0201 
2311 
0300 
0606 
0201 
2311 
0300 
2506 
525/ 
4460 
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2232;23fei;2322;2323j2J24f2i25;2i36;2?^7;2336 



233i;2332>242i;2422 



NAMLST, BASICN 

BCOMPN 

BLOADN 

BRTSN 

BAFN 

BSFN 

BFFN 


BASICN, FILENAME BASIC. SV 



BCOMPN, FILENAME BCOMP.SV 



BLOADN, FILENAME BLOAD.SV 



BRTSN, FILENAME BRTS.SV 



BAFN, FILENAME BASIC, AF 



BSFN, FILENAME BASIC, SF 



BFFN, FILENAME BASIC. FF 



8UFN, FILENAME BASIC, UF 



MISING, 5257;4«ba;566l;5546;6546;01b4;7e;fe4>e,S46f5600 



/OS/6 BASIC EDITOK PALS-V? 10/^4/^2 FAUE l-j-? 



1692 


03341 


5661 


1693 


03342 


5546 


l(.9a 


03343 


6546 


1695 


03344 


0164 


1696 


03345 


7264 


1697 


03346 


6546 


1696 


03347 


5600 


1699 


03350 


5746 


1700 


03351 


7001 


1701 


03352 


6063 


1702 


03353 


0160 


1703 


03354 


5545 


170« 


03355 


1616 


1705 


03356 


0000 


1706 






1707 


00133 


0547 


1708 


00134 


0533 


1709 


00135 


1600 


1710 


00136 


1242 


1711 


00137 


1444 


1712 


00140 


4000 


1713 


00141 


1467 


17ia 


00142 


0041 


1715 


00143 


1215 


1716 


0014a 


4a0i 


1717 


00145 


1332 


17ia 


00146 


1251 


1719 


00147 


3004 


1720 


00150 


3003 


1721 


00151 


0044 


1722 


00152 


0045 


1723 


00153 


0600 


172a 


00154 


5000 


1725 


00155 


2112 


1726 


00156 


0604 


1727 


00157 


0731 


1726 


00160 


0563 


1729 


00161 


3001 


1730 


00162 


2761 


1731 


00163 


?322 


1732 


00164 


2771 


1733 


00165 


3000 


173a 


00166 


1200 


1735 


00167 


92m 


1736 


00170 


1553 


1737 


00171 


1136 


1738 


00172 


3003 


1739 


00173 


0356 


1740 


00174 


0400 


I7aj 


00175 


0525 


1742 


00176 


0471 


1743 


00177 


2600 



OUONEW. 5746^001) 6063>0160;5545n6 16)0 



ss 



/OS/B BASIC EDITOW 



PAU8-V7 \V)/iii/li PAGE lb-.? 



ALT 


0234 


tOFADH 


2776 


MOVt 


13731 


037 


a IMP 


AN0177 


2664 


tOFFLD 


2774 


MUVtFN 


1657 


0400 


aiat- 


ARROW 


0315 


tOFLIN 


0037 


MOVtNT 


0741 


06171 


0105 


ASKfiM 


2167 


tXPANO 


1000 


MOVLUP 


0743 


06291 


0UW 


ASKMAM 


1675 


FDfcCH 


0547 


MOVRTN 


2540 


06211 


aiBfc 


ASKNM 


1713 


FIUEIN 


2611 


MSGALT 


1116 


072 


0067 


BAOFIL 


2162 


FINCH 


0563 


MSGbIG 


1105 


07200 


0070 


BAFN 


3317 


FINDLN 


2322 


MSGkDY 


1123 


07201 


0064 


BASICN 


3277 


FINDSV 


3033 


MSGTOO 


0571 


07400 


0124 


BCBEGN 


7001 


fname 


0045 


M8GWHA 


1126 


07405 


0102 


8CBL0K 


2445 


FRSTDI 


1506 


MTFLD 


2533 


07600 


0071 


BCOMPN 


3303 


GETCH 


2600 


M40 


1660 


07607 


0054 


BCSIZE 


3700 


GETDAT 


3100 


NAME 


0041 


07634 


0114 


BFFN 


3327 


GETEQF 


2771 


NAM1.8T 


3267 


077 


0120 


BLOADN 


3307 


GETFIL 


1444 


NAMLUP 


1736 


07700 


0055 


BRT8N 


3313 


GETFN 


1600 


NCHAR8 


0030 


07701 


0103 


B8FN 


3323 


GETHAN 


1642 


NOIGS 


0027 


07706 


0365 


BSKIP 


1616 


SETLIN 


0200 


NEW 


1763 


07741 


0101 


BUFN 


3333 


6ETNAM 


1724 


NG 


3075 


07745 


0121 


BYE 


1101 


GETNC 


1332 


NOCOMD 


0614 


07746 


0116 


BVEBYE 


1076 


GFN 


2226 


NOEXT 


1361 


07760 


0125 


CARRET 


0334 


GFRET 


1542 


N0FU8R 


1615 


07761 


0060 


CHNFLA 


0032 


GMOVE 


2543 


NOREAD 


2636 


07764 


0061 


CMODON 


0600 


MANDLR 


4400 


NORM 


1136 


07766 


0113 


COFLAG 


0031 


HEADIN 


1251 


N08KIP 


1623 


07770 


0107 


COMLUP 


1202 


HNDLOK 


2314 


NOTLAS 


0645 


07771 


0123 


COMMAN 


1200 


IGNORE 


0203 


NUMDUN 


1425 


07772 


0104 


COMTBL, 


1220 


XNCHRl 


2662 


NUMS 


3230 


07774 


0112 


CONTIN 


2345 


INCHR2 


2657 


N2DIGI 


1523 


PASS 


0533 


CONV 


1270 


INCHR3 


2641 


OLD 


2725 


PFCTLZ 


2020 


COREOV 


1073 


iNtRR 


2720 


OLDBAD 


2712 


PFLOOP 


2014 


COUNT 


2760 


INERRX 


2715 


OlOOEV 


2321 


PFTEMP 


2030 


CRLF 


0356 


INFO 


7604 


OLDFLA 


0034 


PHI 


2104 


CRSWIT 


0547 


INSERT 


0646 


OLONEM 


3350 


PH2 


3101 


CTRLO 


1553 


IQtRR 


2715 


OLOTRY 


2734 


PH3 


2036 


CTHLOX 


1566 


ISTEXT 


0264 


0S8RES 


3200 


PTR 


0026 


DATE 


1325 


JMPINS 


2110 


OUERR 


2720 


PTHFLO 


074b 


OEV 


1647 


UA8TDI 


1505 


OULEN 


2266 


PTR2FL 


1467 


DEVHAN 


0051 


LA8TWD 


1070 


OUSIZE 


2111 


PUTCH 


2031 


OEVNI 


2310 


LEFTTX 


1526 


010 


0111 


PUTFIL 


2000 


DEVNUM 


0052 


UINE 


3000 


012 


0122 


PUTJMP 


2033 


DIGIT 


1507 


LINENO 


0035 


013 


0075 


R8ASIC 


3027 


DIG! 


0463 


UINFTX 


1550 


0137 


0115 


HOBLOK 


2632 


016123 


0467 


LIST 


1400 


014 


0127 


ROJMP 


2757 


DI62 


0453 


tlSTNH 


1411 


017 


0072 


ROPTR 


0021 


0IG23 


0461 


LNUIG 


0400 


0177 


0062 


RDSIZE 


2743 


DIGS 


0450 


ISTLUP 


1436 


0200 


0056 


RDTMP 


0020 


0164 


0442 


LUbUF 


3054 


0201 


0057 


RENAME 


1754 


0IG456 


0446 


LWHEOF 


0727 


0212 


0077 


RIGHTY 


0307 


DIGS 


0432 


MAINLU 


0604 


0215 


0076 


RITETX 


i'j13 


DIG56 


0440 


MCNT 


2543 


0232 


0063 


RUN 


2200 


DIG6 


0427 


MFFUO 


2531 


0237 


0074 


RUNOO 


2432 


DORUN 


2400 


MFPTR 


2542 


0260 


0073 


KUNFLA 


0033 


DSKBUF 


4000 


MI5ING 


3337 


□ 32 


0066 


SAMfclS 


2347 


ENDOUD 


2672 


MONTHS 


3200 


03b 


0117 


SAME2N 


2365 



/OS/8 BASIC EUITOK 



PAUa-V7 \9l/iH/fi PAiit 13-U 



SAVBLK 


223b ZEKOTX 15«a 


SAVE 


2223 




SAVFLA 


1723 




SB 


2742 




SCRATC 


1131 




SEARCH 


2325 




SET EOF 


27fcl 




SIZE 


9ZZ2 




START 


3011 




SWAP 


2112 




SWAPTl 


01303 




9WAPT2 


0(304 




SWAPT3 


0005 




SWAPT4 


0006 




SWAP2 


2127 




SWPFLO 


2147 




SWPLUP 


2141 




SWPNUM 


0053 




TCRLF 


0521 




TEWP 


0023 




TEMP2 


0024 




TESTCH 


1346 




TITLE 


1312 




TUOOP 


0476 




TMP8UK 


2457 




TMPFIU 


2547 




TMPFUD 


0704 




TMP2FL 


1037 




TOWARD 


0025 




TTVO 


2507 




TTYDUT 


0525 




TWOFLO 


0706 




TWD2FI. 


1041 




TXTARE 


5000 




TYPE 


0471 




U8E0SK 


1636 




VERS 


0007 




VER80N 


0100 




WHAT 


1215 




WHUPS 


2473 




WRBLOK 


2064 




WSNAME 


3000 




WSSAVE 


1242 




XMOVE 


2515 




XNAME 


2265 




XTITLE 


1265 




XXXXSV 


3043 




X10 


0010 




Xlt 


0011 




X12 


0012 




X13 


0013 




Xl« 


0014 




X15 


0015 




X16 


0016 




¥17 


0017 





AF 


U74 












ALT 


laB 


131 


137 


141# 






AND177 


1395 


14(^1* 










ARROW 


13a 


14b 


190* 








ASKFN 


9ai 


IU91X 










ASKNAM 


859 


905# 










ASKNM 


907 


910 


919» 








BAOFIL 


I086i» 


1434 










BAFN 


1654 


1674« 










BASIC 


1331 


1658 


1674 


1678 


1682 


1696 


BASICN 


1650 


165e« 










6CBEGN 


19# 


1285 










BCBLOK 


1259 


t264« 










BCOMP 


1662 












BCQMPN 


1651 


1662# 










BCSIZE 


18# 


1262 










BFFN 


1656 


1682* 










BLQAO 


1666 












BUOADN 


1652 


1666* 










BRTS 


1670 












BRTSN 


1653 


1670« 










esFN 


1655 


1678# 










B8KIP 


658« 


862 










BUPN 


1529 


1686# 










BYE 


540* 


620 










BVEBVE 


122 


537« 


835 








CARRET 


125 


205# 










CHNFLA 


50# 


846 


1408 


1411 


1502 




CMODON 


361# 


568 


726 


749 


751 


958 


C0FL.A6 


49« 


724 


838 








COMLUP 


594# 


601 










COMMAN 


371 


592« 










COMTBL 


592 


608* 










CONTIN 


1201« 


1212 










CONV 


639 


640 


641 


643 


648* 


6*»5 


COREOV 


494 


500 


534# 








COUNT 


1358 


1361 


1459 


1463« 






CRUF 


169 


207 


223« 


228 


314 


362 


CRSWIT 


289 


312 


334« 








CTRLO 


293 


748 


825# 


836 


839 




CTRLOX 


827 


832 


836« 








DATE 


677« 


1559 










DEV 


867 


869 


875 


877 


379 


833# 


OEVHAN 


65# 


890 


1021 


1175 


1230 


1372 


DEVN 


1167 


1172# 


1174 








OEVNUM 


66« 


886 


1120 


1126 


1149 


1161 


DIGIT 


763 


764 


766 


767 


789# 




DIG! 


249 


282* 










DIG123 


281 


286t|i 










0IG2 


250 


274* 










DI623 


273 


280# 










0IC3 


251 


271* 










DIGa 


ZSZ 


26b« 










OlGaSb 


264 


269# 










DIGS 


253 


257# 










OIGSfe 


256 


263« 










DIGb 


254* 












DORUN 


1156 


li!2/« 


1249 








DSKBUF 


22# 


976 


1023 


1032 


13b2 


1374 



965 1183 1410 1422 



634 646 

387 889 
U65 1168 144b 



ENDOLD 


1404 


1407* 


















EO^AOR 


1465 


1470 


1473 


147/# 














EOFFLO 


1466 


14750 


















EOFUIN 


55# 
1439 


382 


387 


394 


396 


566 


567 


961 


'^ft2 


143d 


EXPAND 


415 


475# 


















FDECR 


335# 


346 


1213 
















FF 


1682 




















FILEIN 


1352 


1358* 


















FINCR 


325 


332 


347# 


352 


490 


1200 


1205 








FINOLN 


396 


743 


11821* 


1190 


1197 


1216 


1216 








FIND8V 


1508* 


1524 


















FNAME 


61« 


b35 


897 


699 


901 


903 


908 


912 


914 


916 




1238 


1240 


1242 


1244 


1415 


1417 


1419 


1421 


1423 


1443 


FR8T0I 


762 


788* 


















GETCH 


117 


1J49» 


1357 


1406 














GETOAT 


1501 


1507 


1S4S« 


1552 


1581 












BETEOF 


390 


481 


1472* 


1476 














SETFIL 


750 


754« 


778 


782 


786 


800 


816 


817 


984 




5ETFN 


844* 


893 


896 


904 


918 


953 


963 


1123 


1440 




SETHAN 


873 


878« 


















GETLIN 


113# 


U3 


172 


222 


366 


922 










GETNAM 


863 


870 


998# 


939 


945 


951 










BETNC 


682« 


696 


709 


712 


713 


729 


734 


856 


936 


944 


GFN 


1118 


1122# 


















GFRET 


803 


816« 


821 


824 














SMOVE 


1308 


1310 


1312 


1314 


1327# 


1330 










HANOUR 


23« 


878 


1166 


1255 


1268 












HEADIN 


633« 


647 


723 


1104 














HNOLOK 


1163 


1176# 


















IGNORE 


116* 


150 


164 


189 


200 


204 


213 








INCHRl 


1380 


1399# 


















1NCHR2 


1381 


1396« 


















INCHR3 


13a2« 




















INERR 


1369 


1376 


1431i 
















INERRX 


1427# 




















INFO 


20* 


31 


1227 


1258 


1280 


128? 


1412 








INSERT 


399« 




















lOERR 


872 


886 


1132 


1155 


1173 


1426# 










ISTEXT 


160 


165* 


















JMPINS 


982 


1002 


1044» 
















LASTDI 


768 


787* 


















LASTWD 


513 


53l# 


















LEFTTX 


770 


804» 


















LINE 


175 
719 


ilb 
1100 


375 

1101 


377 

1105 


455 
1480* 


457 


458 


599 


666 


718 


LINENO 


53# 


254 


261 


269 


271 


276 


286 


330 


385 


393 




395 


454 


456 


580 


582 


563 


585 


1193 


1208 




LINFTX 


772 


822* 


















LIST 


610 


718* 


















LISTNH 


722 


727# 


















LNDIG 


163 


231* 


237 


236 


244 


270 


287 


737 






LSTLUP 


748# 


753 


















LUBUF 


1510 


1525« 


















LWREOF 


436 


448* 


















MAINLU 


365* 


372 


452 


472 


536 


6B7 


1435 


1461 


1541 




MCNT 


1315 


1321 


1326* 
















MFFLD 


1309 


131b# 


1322 
















MFPTR 


1311 


1317 


1319 


li20 


1325# 












MISING 


1543 


1690* 



















MONTHS 


1557 


159b« 














MDVE 


413 


45li)« 


533 












MOVEFN 


691# 
















MOVENT 


45e# 
















MQVLUP 


46ei« 


471 














MOVRTN 


1307 


I32i# 














MSGAUT 


142 


553# 














MSGBIG 


535 


544« 














MSGROV 


3«.4 


558* 














MSGTOO 


171 


J53# 














MSGMHA 


561# 


606 














MTPLD 


1313 


1318« 














M40 


860 


892« 














NAME 


57* 


702 


866 


668 


894 


898 


900 


902 




915 


91? 


929 


930 


931 


933 


934 


1153 


NAMLST 


32 


16S0III 














NAMLUP 


704 


93e# 


950 












NCHARS 


48« 
684 


115 
727 


158 
657 


165 
925 


173 


188 


196 


199 


NDI6S 


47« 
788 


114 
798 


201 
801 


203 


211 


240 


241 


570 


NEM 


622 


959# 














NG 


1518 


1542* 














NOCOMO 


366 


373# 














NOEXT 


699 


705* 














NOFUSR 


S48 


8S7» 














NQREAD 


1359 


1365 


1379# 


1383 


1400 


1462 






NORM 


221 


569* 


574 


577 


589 


741 






NOSKIP 


863# 


926 














NOTUAS 


389 


398« 














NUMDUN 


730 


735 


739# 












NUMS 


1565 


1619» 














NZDIGl 


797 


801# 














OLD 


612 


1436* 


1503 












OLOBAD 


1423# 


1451 














OLODEV 


1121 


1159 


1164 


1181# 










OLOFLA 


52« 


153 


190 


205 


369 


1350 


1407 


1431 


OLONEW 


1539 


1699i» 














OLOTRY 


1425 


1443* 














OSSRES 


21* 


1050 


1053 


1056 










OUERR 


1025 


1028 


1430« 












OULEN 


1030 


1137 


ltS4« 












0U8IZE 


1026 


1045* 


1136 












oiei 


97« 


440 


445 


468 


784 


809 






012 


106* 


233 














013 


85« 


618 














0137 


101# 


193 














014 


lilt 


833 














017 


82« 


795 


1005 












0177 


74* 


829 


1356 


1401 










0200 


70# 


881 


955 


1128 


1139 


1151 


1170 


117/ 


0201 


71# 


932 














0212 


87# 


226 


823 












0215 


86* 


224 


820 












0238 


75# 


968 














0237 


84# 


302 


309 


815 










0260 


B3« 


602 














032 


76# 


1405 














03fe 


103# 


144 














03 7,^^ 


88* 


479 


1564 













911 913 

208 683 
see 726 



1457 



1426 1447 



0400 


110# 
















06171 


93# 


i4k) 














06201 


96# 


406 


420 


483 


502 


745 


975 


l'i6/ 


06211 


94« 


349 














072 


79# 


na 














07200 


80« 


1360 














07201 


76« 


990 














O7«00 


10B» 


262 


279 


1014 


1386 


13^1 


1553 




07405 


90# 


166 














07600 


81# 


980 


1034 


1060 










07607 


6a# 
















07634 


100« 


132 














07T 


104« 
S12 


146 
1191 


299 
1469 


306 
1505 


327 


650 


654 


694 711 779 


07700 


69« 


185 


219 


657 


855 


1147 






07701 


9l« 


434 


776 


1188 










07706 


77# 


/36 














07741 


89# 


511 


653 












07745 


1050 


162 














07746 


102* 


1402 














07760 


109# 


255 


272 












07761 


72# 


69/ 


630 












07764 


73« 


705 














07766 


99# 


123 














07770 


95# 


126 


405 


426 


520 


528 






07771 


107# 


242 


1109 












07772 


92# 


129 


575 












07774 


9B* 


578 


936 












PASS 


292 


29b 


304 


305 


322« 


329 


331 


333 1201 121/ 


PFCTLZ 


985 


986* 














PFLOOP 


984* 


987 














PFTEMP 


991 


993 


996llt 












PHI 


1000 


1040« 














PH2 


1001 


103/« 














PH3 


1002« 
















PTR 


46# 


176 


184 


187 


216 


216 


220 


373 392 401 




408 


464 


465 


638 


642 


655 


661 


662 664 740 




774 


781 


974 


1108 


nil 


1112 


1186 


1215 


PTRFUO 


407 


463« 


467 


469 










PTR2FL 


746 


761 


766 


769 


773* 


783 


785 


976 


PUTCH 


986 


989 


992 


997# 


1019 


1036 


1043 




PUTFIU 


972« 


995 


1142 












PUTJMP 


983 


999# 


1003 


10'!2 


1044 








RBASIC 


1490 


1504« 














RDBLOK 


1375# 


1377 


1455 












RDJMP 


1364 


1382 


1462« 












RDPTR 


41# 


1363 


1384 


1385 


1396 


1398 


1399 




RDSIZE 


1367 


1371 


1450« 


1054 










RDTMP 


40* 


1390 


1397 












RENAME 


624 


952# 














RIGHTY 


176 


164« 














RITETX 


771 


609# 














RUN 


616 


1100« 














RUNDO 


U53« 
















BUNFLA 


51« 


111/ 


1119 


1144 


1156 








SAMEIS 


1195 


1203« 














SAMe2N 


1210 


1217* 














SAVBLK 


1125 


1130* 


1133 


1135 


1235 








SAVE 


614 


1119# 














SAVFLA 


845 


6SI<) 


891 


405 


927« 









sb 


1444 


1449« 


1452 
















SCRATC 


S(>4« 


618 


















SEARCH 


11«S# 


1202 


















SETEOF 


449 


505 


565 


960 


1437 


1464* 


1471 








SF 


1678 




















SIZE 


42« 


376 


379 


411 


450 


470 


701 


93; 


94Q 




START 


1490* 




















SV 


1658 


1662 


1666 


1670 














SWAP 


540 


849 


957 


964 


1020 


1031 


1046* 


1058 


M41 


1143 




1179 


1366 


1378 


1432 


1460 


1540 










SkiAPTl 


26« 
1077 


979 
1063 


1009 


1010 


1017 


1033 


1037 


1039 


1041 


1070 


8WAPT2 


27# 


981 


1018 


1035 


1074 


1078 










SWAPT3 


26# 


1015 


1016 


1036 


1061 


1076 


1079 


1080 






8WAPT4 


29# 


998 


1004 


1011 


1040 


1064 


1071 


1072 


1073 


1084 


SWAPS 


1049 


1052 


1055 


1059* 


1062 


1063 


1065 


1066 


1065 




SWPFLD 


1067 


1075111 


















SWPLUP 


1069« 


1081 


















8WPNUM 


fc7# 


538 


1047 
















TCRLF 


294 


301 


308 


312* 














TEMP 


43« 


152 


161 


179 


186 


239 


257 


260 


263 


265 




274 


277 


280 


262 


323 


326 


330 


336 


344 


345 




391 


399 


410 


417 


424 


430 


437 


459 


461 


462 




477 


480 


486 


507 


523 


524 


579 


586 


593 


594 




595 


596 


602 


603 


604 


636 


649 


656 


663 


687 




686 


747 


755 


756 


810 


819 


822 


977 


1106 


1113 




1114 


1184 


1185 


1187 


1198 


1203 


1206 


1214 


1389 


1392 




1424 


1442 


1474 


1566 


1567 












TEMP2 


44« 


118 


120 


156 


476 


531 


703 


780 


789 


792 




793 


804 


811 


935 


943 


946 


947 


948 


1110 


1115 




1549 


1550 


1561 


1573 














TE8TCM 


690 


694* 


















TITLE 


645 


666* 


















TLOOP 


293« 


311 


















TM 


1331 




















TMPBLK 


1274(» 


1279 


1281 
















TMPFIL 


1274 


1331« 


















TMPFLD 


421 


42f 


429# 


439 


441 


443 


447 








TMP2FL 


484 


506« 


526 


527 


529 


530 










TOWARD 


45# 


418 


422 


432 


433 


442 


448 


476 


487 


486 




491 


492 


496 


497 


504 


509 


510 


515 


516 


532 


TTYO 


1287 


1289 


1291 


1293 


1296* 


1303 










TTVOUT 


157 


194 


225 


227 


303 


310 


316* 


321 


752 




TWDFLD 


428 


431« 


444 


446 














TWD2FL 


503 


508« 


519 


521 














TXTARE 


24# 


564 


739 


959 


973 


1163 


1436 


1477 


1506 




TYPE 


141 
920 


170 
1433 


288* 
1538 


290 

1542 


291 


315 


363 


534 


605 


644 


UF 


1686 




















USEDSK 


665 


674# 


















VERS 


30# 




















VER80N 


17# 


30 


673 


674 














WHAT 


598 


605« 


924 
















WHUPS 


1265 


1276 


1286* 
















WRSLOK 


1024# 


ia29 


1134 
















WSNAME 


1461« 




















WSSAVE 


626« 


1107 


















XMOVE 


1247 


1253 


1266 


1304* 


1324 


1328 


1329 








XNAME 


1124 


U53# 


















XTUHI 


637 


645* 












d 


n^ 





xxxxsv 


1511 


lblb# 


1521 










X10 


3l» 


1228 


1231 


1233 


1237 


1239 


1241 




1414 


141b 


1416 


1420 


1522 


1535 




Xll 


32* 


1508 












X12 


33* 


1558 


15b9 


1571 








X13 


34« 


15b0 


1568 


1570 


1572 


1579 


1580 


xia 


35(» 














X15 


3b« 














xi«. 


37i 














XIT 


3e« 














ZEROTX 


814 


818« 












^L0133 


1213 














*L0134 


1201 


1217 












*L0135 


1123 


1440 












^L0136 


1107 














4.1.0137 


984 














xL0l«0 


978 


1032 


1362 










^0141 


97b 














^U0l«2 


934 














^L0ia3 


924 














^U0l«« 


878 


llbb 












4.L0145 


729 


734 


938 


944 








^U0ia6 


723 


1104 












^U0l«7 


719 


1101 












^L0150 


718 


1100 












^1.0151 


702 














.^U0152 


b35 


1443 












^1.0153 


Sb8 


72b 


749 


751 


958 


9b5 


1180 


j.LaiS4 


Sb4 


739 


959 


973 


1183 


143b 


1506 


^L0155 


540 


849 


957 


964 


1020 


1031 


1141 




1376 


1432 


1460 


1540 








^L0156 


53b 


b07 


1435 


1461 








^L0157 


533 














^U0160 


490 


1200 


1205 










^L01bl 


457 














^L0lfe2 


449 


505 


5b5 


960 


1437 






xU0l63 


398 


743 












^L0U'» 


390 


481 












^L0lfe5 


375 


45S 


458 










^L0166 


371 














*L0167 


3bb 


922 












^L0170 


293 


748 












^L017l 


221 


741 












j,L0172 


175 


215 


377 


599 


686 


1105 




*L0173 


lb9 


207 


314 


362 


634 


b4b 




^L0174 


lb3 


737 












*U0175 


157 


194 


225 


227 


752 






*L0l7b 


141 


I7(fl 


363 


534 


605 


644 


920 


^L0177 


117 














^L137fe 


bbB 














^L1377 


bS2 














^L1576 


731 














^L1577 


720 














^L1773 


87b 














^11774 


874 














^Ua377 


1102 














j.Ua563 


130fc 














^L25fc4 


1292 














^L25fe5 


1290 














^L25bb 


1288 















1243 12a5 141i 



1410 1422 

1143 1179 1366 



1433 1536 1542 



12567 


12S6 


L2577 


1227 


12777 


1412 


L3164 


1575 


LllfcS 


1574 


L3l«.fe 


1565 


L3167 


1559 


L3170 


1557 


1.3175 


149S 


L3176 


149S 



1514 1527 



/OS/a BASIC COMPILES 
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I 

2 

3 
4 
5 

6 

r 

B 
9 

10 
11 

12 

13 

la 

15 
lb 
17 



010(9 



/OS/8 BASIC COMPILER 
/ 

/0EC-S8-UBASA-A-LA 

/ 

/COPYRIGHT, 1972 

/ 

/DIGITAL EQUIPMENT COKPOHATION 
/MAYNARO, MASSACHUSETTS 01754 

/ 

/AUGUST 19, 1972 

/ 

/HANK MAURER 

/ 

/ 

/ 

/ 

VERSON»100 



S/8 


BASIC COMPILEK 


PAL8-V8 


18 




0006 




*6 




19 


00006 


6635 


XABORT, 


ABORT 




20 


00007 


010(9 


VEHS, 


VERSOU 




21 


00010 


7603 


X10, 


INFO-1 




22 


00011 


7325 


Xll, 


NAMLST-1 




23 


00012 


7577 


X12, 


INFO-5 




24 


00013 


7773 


X13, 


BOSINFO-1 




2S 


00014 


1133 


OSTACK, 


STACKO-l 




26 


00015 


7117 


STACK, 


STACKA-1 




27 


00016 


2571 


NEXT, 


FREE-1 




2B 


00017 


0000 


CHRPTR, 







29 


00020 


0000 


NCMARS, 







30 


00021 


7774 


TEMP, 


-4 




31 


00022 


0000 


TEMP2, 







32 


00023 


0000 


oecPT, 







33 


00024 


0000 


NDIGIT, 







34 


00025 


000)3 


EXPON, 







35 


00026 


0000 


TYPE, 







36 


00027 


0000 


SYMBOL, 







37 


00030 


0000 


LEFT, 







36 


00031 


0000 


OLDOPi 







39 


00032 


0000 


NEMOP, 







40 


00033 


0000 


TMPCNT, 







41 


00034 


0003 


TMPUVL, 


3 




42 


00035 


0000 


STMPCT, 







43 


00036 


0001 


STMPLV, 


1 




44 


00037 


0000 


STPTR, 







4S 


00040 


7 37/ 


VARCNT, 


-401 




46 












47 


00041 


7377 


SVCNT, 


-401 




48 


00042 


7737 


ACNT, 


-41 




49 


00043 


7737 


SACNT, 


-41 




50 


00044 


0000 


LOCTRH, 







51 


00045 


0000 


LOCTRL, 







52 


00046 


0000 


BLOCK, 







53 


00047 


0000 


hlFLO, 







54 


00050 


0000' 


BRTS, 







55 


00051 


0000 


DLSIZE, 







56 


00052 


0000 


ABOHTX, 







57 


00053 


0000 


LINEH, 







58 


00054 


0000 


LINEL, 







59 


00055 


0000 


MODE, 







60 


00056 


0000 


TYPEl, 







61 


00057 


0000 


SYMBLl, 







62 


00060 


0000 


OLOSTK, 







63 


00061 


0000 


ARGCNT, 







64 






PCRLF, 






65 






OACNT, 






66 






FORJMP, 






67 






NOSN, 






66 






COLON, 






69 


00062 


0000 


JAROND, 







70 


00063 


0000 


IFNREG, 







71 


00064 


0000 


SSREGl, 







72 


00065 


0000 


SSREG2, 








10/30/72 PAGE 2 



/AODR OF A90HT MOUTINE 
/VERSION NUMBER 
/AUTO INDEX REGISTERS 



/OPERAND STACK POINTER 
/GENERAL STACK POINTER 
/NEXT FREE LOCATION 
/INPUT BUFFER POINTER 
/SIZE OF INPUT LINE 



/SET 1 IF , 

/NUM DIGITS RIGHT OF . 

/EXPONENT FOR NUM CONV 

/TYPE OF CURRENT OPERAND 

/SYMBOL NUMBER OF CUR, OPERAND 

/LEFT SIDE SWITCH 

/OLD OPERATOR 

/NEW OPERATOR 

/TEMP COUNTER 

/TEMP LEVEL 

/TEMP COUNT (STRINGS) 

/fEMP LEVEL (STRINGS) 

/POINTER TO S.T, ENTRY 

/NUMBER OF POSSIBLE NUMERIC 

/VARIABLES, LITERALS, AND TEMPS 

/SAME FOR STRING WARS 

/ARRAY COUNTER 

/STRING ARRAY COUNTER 

/HIGH ORDER LOCATION COUNTER 

/LOW ORDER " " 

/START BLOCK OF TEMP FILE 

/HIGHEST CORE FIELD 

/START OF BRTS.SV 

/NEG. SIZE OF DATA LIST 

/START OF EDITOR 

/LINE NUMBER CHIGH) 

/LINE NUMBER (LOW) 

/INTERPRETER MODE 

/TYPE AFTER JMS GETAl 

/SYM # AFTER JMS GETAl 

/STACK SAVER F0« DEF 

/ARG COUNTER FOR DEF 

/CR SWITCH FOR PRINT &TMT 

/ARG COUNT FOR UOEF STMT 

/FOR LOOP JUMP INSTR 

/STMT NUMBER PRESENT SWITCH 

/! SWITCH FOR GETFN ROUTINE 

/END OF OEF ADOR GOES HgHfc (INOI»eCTLY) 

/CONTENTS OF IFN REG 

/EXECUTION TIME CONTENTS 

/OF THE SS REGISTORS 



# 



/OS/8 BASIC COMPllEK 
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73 
74 
75 
76 
77 
78 
79 

8e 

81 
B2 

63 

84 

as 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

lis 

116 
117 
118 
119 

120 
121 



00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00U1 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
001S4 
00125 
00126 
00127 
00130 
00131 
00132 
00133 



00136 
00137 
00140 
00141 
00142 
00143 



7117 
0000 
0000 
6211 
5470 
5706 
0547 
6736 
5542 
3632 
6446 

4021 
4035 
4010 
4027 
2600 
3400 
0201 
0205 
3517 
4303 
6S55 
5600 
4102 
2400 
2200 
411/ 
4062 
4052 
4073 
4251 
4000 
5000 
5455 
3600 
3616 
3336 
0400 



00134 0000 

00135 0000 



0000 
0000 
0000 
0000 
0000 
0000 



STKLVt, 
FINDEX, 
8ETFLD, 
LUFLO, 

QERM3G, 

QLODSN, 

QCHKWO, 

QM008ET 

08NUM, 

OOUTWRD 

QSAvECP 

QGETC, 

QGETCMB 

QHESTCP 

OEXPR, 

OOUTOPR 

UNEWLIN 

QREMARK 

QGETAl, 

QUOAOSS 

QCHECKC 

OGETNAM 

OCOMARP 

QLOOKUP 

QLUKUP2 

QLOADr 

QPUSH, 

OPOP, 

QPUSHO, 

QSAVAC, 

QBACKl, 

ONUMBER 

OSTRING 

QLETTER 

0DI6IT, 

QNORF.GS 

0400, 

NAMEl, 

M0R01> 

NAME2| 

M0R02, 

NAMES, 

W0RD3, 

ACQ, 

OPl, 

0P2, 

0P3, 

OPO, 



STACKA-l 





COF 

JMP I 

ERMSG 

LOOSN 

CHKWD 
,MOOSET 

SNUM 
,OUThRO 
,SAVECP 

GETC 
,GETCW8 
,RESTCP 

EXPR 
fOUTOfR 
,NEWLIN 
,R£MARK 

GETAl 
,LQADSS 
jCHECKC 
,GETNAM 
,COMARP 
,tOOKUP 
,LUKUP2 

LOAD 

PUSH 

POP 

PUSHO 

SAVAC 

BACKl 
, NUMBER 
.STRING 
,LETTER 

DIGIT 
,NORtGS 

400 





10 
SETFLU 



/STACK BASE LEVEL 

/FOR LOOP INDEX 

/FIELD CHANGE RTME HD« LUKUP5 

/FIELD OF ENTRY FOR LuKuPii 

/SUaROUTiNc POINTERS 



/VARIABLE OH FUNCT NAME 
/3 WORD LITERAL BUFFER 



/FAC OVERFLOW WO 

/4 WORD ARG FOR ■'NUMBbR" 



/OS/8 BASIC COMPILEK 
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132 
123 
12a 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
14S 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 



7604 



7774 

ibm 

3012 
1712 
7570 
4400 
700ia 
0120 
7120 
0060 

7200 



0000 

040ld' 

103b 

2132 

2332 

2532 

2556 

2560 

2562 

2564 

2566 

2570 

2572 



/INFO 

/INFO+1 

/INFO+2 

/1NF0*3 

/INF0*4 

/INFO+5 

/1NF0*6 

/INFO+7 

/INFO+1 

/INF0*1 

/INFO+1 

/INFO+1 

/INF0*1 

/INF0*1 

/INFn*2 

/ 

/ 



IMF0»7 
START 
START 
START 
START 
START 
START 
START 
START 
START 
SIZE 
INPUT 
SIZE 
START 
THROU 



604 /INFORMATION ARtA 
ING BLOCK +1 OF BASIC, SV 
ING BLOCK +1 OF BCOMP.SV 
ING BLOCK ♦! OF dLOAO.SV 
ING BLOCK *1 OF BRTS.SV 
ING BLOCK +1 OF BASIC, AF 
ING BLOCK ♦l OF BASIC, SF 
ING BLOCK +1 OF BASIC. FF 
ING BLOCK ♦! OF BASIC, UF 
ING BLOCK OF BASIC, TM 

S OF BASIC, TM 
ENTRY ADDRESS 

CE NUMBER OF INPUT FILE 

K OF INPUT FILE 



NAME 



IN BLOCK 
HANDLER 
AND DEVI 
ING BLOC 
GH 
OF WORKSPACE 



B0SINF0»7774 

EDTSIZ«1600 

EOTB6NB3012 

ERMSG2»1712 

EOST»7570 

INDEVHa4400 

LINE>7000 

LINMAX»120 

STACKAa7120 

STAKSZI60 

INBUFB72O0 



FIELD ONE STUFF 



/BOS PARAMETER AREA 

/SIZE OF BASIC, SV 

/RESTART FOR EDITOR 

/POST PROCESSOR Ef)ROR SWITCH 

/UPPER LIMIT FOR SYMBOL TABLE 

/INPUT DEVICE HANDLER 

/LINE BUFFER 

/MAXIMUM BASIC STMT 

/MAIN STACK 

/SIZE OF MAIN STACK 

/OPERAND STACK DEFINED IN-LINE 

/INPUT BUFFER 



OUBUF» 
VARST" 
SVARST 
ARAYST 
SARYST 
SNUMSa 
TEMPSs 
STEMPS 
LITRL* 
SLITRL 
DATLST 
FUNC7N 
FREE»F 



400 

«VARST* 

■SVARST 

■ARAYST 

SARYST+ 

8NUMSt2 

■TEMPS+ 

STEMPS* 

■LITRL* 

■SLITRL 

■DATLST 

UNCTN+2 



/OUTPUT BUFFER 

/VARIABLE SYMBOL TABLE 
436/STRING VAR SYMBOL TABLE 
♦1074/ARRAY SYMBOL TABLE 
♦200/STRING ARRAY SYMBOL TABLE 
200/STMT NUMBER BUCKETS 
4 /NUMERIC TEMP BUCKET 
2 /STRING TEMP BUCKET 
2 /NUMERIC LITERAL BUCKET 
2 /STRING LITERAL BUCKET 
*2 /DATA LIST 
♦2 /FUNCTION LIST 

/START OF FREE CORE 




/QS/8 BASIC COMPItEW 
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170 


/ 


INTEHPRETEH OPCODES 


ni 


/ 




178 


/ 


MEMOHY HEFERENCfc SET 


173 


00012 


FAOD»0000 


I7a 


04012 


FSUB»0400 


175 


1000 


FMPY»1000 


176 


1400 


FOIV»1400 


177 


2000 


FLDA-2000 


178 


2400 


FSTA«2400 


179 


3000 


FISUB>3e00 


160 


3400 


FIDIVS3400 


181 


4000 


LSS1>4000 


182 


4400 


LSS2>4400 


183 


5400 


JEOFi5a00 


18a 


6000 


LOAOSN«6000 


185 


/ 




18fc 


/ 


JOC CLASS 


187 


5000 


JSUBI5000 


188 


5001 


JUMP«500l 


189 


5002 


JGE«5002 


190 


5003 


JNE»5003 


191 


5004 


JGT»5004 


192 


5005 


JUT«5005 


193 


5006 


JEO>5006 


19« 


5007 


JLE»50a7 


195 


50112 


JFDR»5010 


196 


/ 




197 


/ 


ARRAY ClASS 


198 


6400 


AISUB«6400 


199 


6440 


AFAODi6aa0 


200 


6500 


AFSUB«6500 


201 


6540 


AFMPV»65a0 


202 


6600 


AFDIVB6600 


203 


6640 


AFLDA«66a0 


204 


6700 


AFSTA«6700 


205 


6740 


AIOIVS6740 


206 


/ 




207 


/ 


STRING CLASS 


208 


00012 


SCON«FADO 


209 


0400 


SCOMP«FSUB 


210 


1000 


SREAO»FMPY 


211 


2000 


SLOAOaFLOA 


212 


2400 


SSTORE'FSTA 


213 


6400 


SACONaAISUB 


2ia 


64412 


SACOMPIAFAOD 


215 


6500 


SAREAO'AFSUa 


216 


6640 


SALOAD»AFLDA 


217 


6700 


SASTORiAFSTA 


218 


/ 




219 


/ 


OPERATE CLASS 


22IS 


7401 


SETJF»740l 


221 


7421 


RN00a7421 


d?.i 


7441 


ST0P«744l 


223 


7461 


SRDL«7461 


22a 


7414 


CHN»74ia 



OS/8 BA 
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225 


7521 


NKDL»75ei 


226 


7434 


CL0SEFSI7434 


227 


7474 


0PfeN4V«7474 


228 


7454 


0PENAF»7454 


229 


7534 


0PENNV«7534 


230 


7514 


0PENNF«7514 


231 


7501 


CLRFN»7501 


232 


7402 


FILtNOi7402 


233 


7403 


FNEG«74ii3 


23<l 


7404 


RET8740a 


235 


7405 


RESTiraes 


236 


7406 


LSS1ACI7406 


237 


7407 


LSS2AC"7407 


238 


7410 


FeSC»7410 


239 


7411 


REA0I7411 


240 


7412 


WHITE»7412 


ZHi 


7413 


8WHITE»7413 


242 


7561 


SM0DE»7561 


243 


7541 


NM0DE»7541 


zan 


7416 


FUMC1«7416 


245 


7417 


FUNC2a7417 


246 


740k) 


FUNC3«740BI 


247 


7415 


FUNC4«741b 


248 


754*3 


USE»7540 
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# 
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249 / ASSEMBLE tINE 

250 0201 *WOROl* 

251 00201 450£ NEMlIN, JMS I 

252 00202 520S JMP 

253 00203 4473 JMS I 

254 00204 3003 3003 

255 00205 3062 REMARK, OCA 

256 00206 1034 TAD 

257 00207 3033 OCA 
25B 00210 1036 TAD 

259 00211 3035 OCA 

260 00212 1377 TAD 

261 00213 3014 DCA 

262 00214 1066 TAD 

263 00215 3015 OCA 

264 00216 1376 TAO 

265 00217 3010 DCA 

266 00220 137b TAO 

267 00221 3021 OCA 
26B 00222 4774* GETLlN, JMS 

269 00223 5235 JMP 

270 00224 3410 DCA I 

271 00225 2021 ISZ 

272 00226 5222 JMP 

273 00227 4473 JMS 1 

274 00230 1424 1424 

275 00231 4774* JMS 

276 00232 5235 JMP 

277 00233 7200 CLA 

278 00234 5231 JMP 

279 00235 1010 GOTCR, TAO 

280 00236 7040 CMA 

281 00237 1376 TAD 

282 00240 3020 DCA 
263 00241 1376 TAD 

284 00242 3017 OCA 

285 00243 1045 TAD 

286 00244 7421 T421 

287 00245 733K1 CLA CLL 

288 00246 4477 JMS I 

289 00247 5267 JMP 

290 00250 2062 ISZ 

291 00251 4476 JMS I 

292 00252 4532 JMS I 

293 00253 1134 TAD 

294 00254 3053 DCA 

295 00255 1135 TAO 

296 00256 3054 DCA 

297 00257 4070 JMS 

298 00260 1422 TAO I 

299 00261 1044 TAO 

300 00262 3422 OCA I 

301 00263 2022 ISZ 

302 00264 ]045 TAD 

303 00265 3422 OCA I 



45 /ORG PAST BIGGEST STRING LIT 

OGETC /ANY CHARS LEFT 7 

REMARK /NO, LINE ENDED OK 

OERMSG /EXTRA CHARACTERS 



NOSN 

TMPLVL 

TMPCNT 

STMPLV 

STMPCT 

CSTACKO 

OSTACK 

STKLVL 

STACK 

CLINE-l 

)(10 

C-LINMA 

TEMP 

ICHAR 

GOTCR 

)(10 

TEMP 

SETLIN 

QERMSG 

ICHAR 
GOTCR 

.-3 

X10 

CLlNE-1 

NCMARS 

(LINE-l 

CHRPTR 

LOCTRL 



/CLEAR STMT NUMBER 
/RESET TEMP LEVELS 
/FDR NUMERIC 
/AND STRING 
/TEMPORARIES 
-1 
/RESET STACK 
/(CHANGED 8Y 



Si^ITCH 



POINTERS 
FOR LOOPSl 



/GET THE NEXT LINE 

X/MAX SIZE 

/GET NEXT CHAR 
/ CR 

/PUT INTO LINE BUFFER 

/9UMP MAX COUNTER 

/LINE TOO LONG 

/SKIP REST OF LINE 



/COMPUTE SIZE 



/OF LINE 

/SETUP LINE POINTER 



CML R 

QSNUM 

NOSNUM 

NOSN 

QMODSET 

ONOREGS 

WORDI 

LINEH 

W0R02 

LINEL 

8ETFL0 

TEMP2 

LOCTRH 

TEMP2 

TEMP2 

LOCTRL 

TEMP2 



,/PUT LOCATION COUNTER 
/INTO MQ / 
/ALLOW DEFINITION 
/GET THE STATEMENT NUMBER 
/NO STMT NUMBER ON THIS LINE 
/SET STMT NUMBER PRESENT 
/IN N MODE AT ALL LABELS 
/FORGET REG CONTENTS 
/SAVE NEW LINE NUMBER 



/GET TO FIELD OF ENTRY 

/GET DEFINEO/REFNCEO BITS 

/ADO IN HIGH ORDER LOCAriQN CTH 

/PUT IT AWAY 

/NOW PUT IN LOW ORDER LOCATltlN 



/OS/a BASIC COMPIUEH 
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304 


Id0266 


6201 


305 


00267 


4773' 


306 


00270 


1372 


307 


00271 


3010 


308 


00272 


4501 


309 


00273 


1410 


310 


00274 


7500 


311 


00275 


5314 


312 


00276 


3021 


313 


00277 


4502 


3ia 


00300 


5304 


315 


00301 


1021 


316 


00302 


765i9 


317 


00303 


5273 


316 


00304 


4504 


319 


00305 


1410 


320 


00306 


7710 


321 


00307 


5305 


322 


00310 


1410 


323 


00311 


7440 


324 


00312 


5276 


325 


00313 


5316 


326 


00314 


3021 


327 


00315 


5421 



NQSNUM, 



KWtOOP, 



NOGOOO, 



GOTKWi 



CDF 
JMS 
TAD 
DCA 
JMS 
TAD 
SWA 
JMP 
OCA 
JMS 
JMP 
TAD 
SNA 
JMP 

JMS 
TAD 
SPA 
JMP 
TAD 
SZA 
JMP 
JMP 
DCA 
JMP 



KBOCHK /CHtCK FOR "C OH *D 

(KE¥«iHD-l 

X10 /SET UP FOR K£Yi«iOHD SfcARCM 
I iJSAVECP /SAVE CHAR POS 
I X10 /GET NEXT CHAR OF KEYrtORD 

GOTKW /OK, THIS IS }»l KW 
TEMP 

I QGETC /GET NEXT ChAH I^RDM STMT 

N0600D /THIS ISN'T IT 

TEMP /IS THIS CHAR OK ? 

KWLOOP /YES, CONTINUE LOOKING 
QRESTCP /BACK TO START OF STMT 
X10 /SKIP OVER REST OF KEYi^iOHD 



CLA 

I 
I 
CLA 



I 



.-2 

X10 



/IS THIS END OF LIST ? 



KWL00P«3/ND, KEEP LOOKING 
LET /TREAT AS LET STMT 
TEMP /SAVE ADDR OF ROUTINE 
TEMP /GO PROCESS THE STMT 



os/e 
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326 






/ LET STATEMENT 


PROCESSOR 


329 


00316 


4474 


LET, 


JMS 


I 


QLODSN 


/LOAD THE STMT NUMBER 


330 


00317 


7130 




CLL 


CML 


RAR 


/COMPILE LEFT SIDE 


331 


00320 


4505 




JMS 


1 


QEXPR 


/GET EXPRESSION 


332 


00321 


5205 




JMP 




REMARK 




333 


00322 


4513 




JMS 


I 


QCHECKC 


/LOOK FOR s 


334 


00323 


7703 




-75 








335 


00324 


5340 




JMP 




BAOLET 


/BAD IF MISSING 


336 


00325 


4505 




JMS 


I 


QEXPR 


/GET RIGHT SIDE 


337 


00326 


5205 




JMP 




REMARK 




338 


00327 


7240 




CUA 


CMA 




/GET TVPE OF 


339 


00330 


1014 




TAD 




OSTACK 


/RIGHT SIDE 


340 


00331 


3021 




DCA 




TEMP 


/OF EQUAL SIGN 


3«l 


00332 


1421 




TAO 


I 


TEMP 


/SO THAT WE GENERATE 


342 


00333 


7710 




SPA 


CLA 






343 


00334 


7144 




CLL 


CMA 


RAL 


/THE CORRECT STORE 


344 


00335 


1371 




TAO 




(ASSIGN 


-1 


345 


00336 


4S06 




JMS 


I 


QOUTOPR 


/GENERATE STORE 


346 


00337 


5201 




JMP 




NEWLIN 




347 


00340 


4473 


BADLET, 


JMS 


I 


QERMSG 


/BAD LET STMT 


348 


00341 


1423 




142] 


i 






349 


00342 


5205 




JMP 




REMARK 




350 


00343 


1370 


END, 


TAD 




(STOP 


/OUTPUT STOP OPCODE 


351 


00344 


4500 




JMS 


I 


QOUTMKD 




352 


00345 


4767' 




JMS 




OUOUMP 


/DUMP BUFFER 


353 


00346 


4766 




JMS 


I 


(7607 


/READ IN POST PkOCESSOR 


354 


00347 


1000 




100C 


) 




/EIGHT PAGES 


355 


00350 


0400 


POSTX, 


400 






/FROM 400 


356 


00351 


0000 


LDRBLK, 









/FROM THIS BLOCK 


357 


00352 


5406 




JMP 


I 


XABORT 




358 


00353 


1473 




TAD 


I 


QERMSG 


/SET POST PROCESSOR ERR 


359 


00354 


3765' 




OCA 




ERMS62 




360 


0O35S 


5750 




JMP 


I 


POSTX 


/START IT UP 


361 


00356 


0050 


STAR, 


50»0f XM 


JLIXMUL 




362 


00357 


0000 












363 


00360 


5762 












364 


00361 


5762 












365 


00362 


0060 


UPAROW, 


60»UEXPRTN-1 




366 


00363 


0001 












367 


00364 


3543 
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36B 






/ REST 


ORE, 


PRI 


SiT, AND 


INPUT PROCESSORS 


3<.9 


00365 


1712 












370 


00366 


760/ 












371 


00367 


6471 












372 


00370 


7441 












373 


00371 


6066 












37tt 


00372 


6242 












375 


00373 


2346 












376 


00374 


6600 












377 


00375 


7660 












378 


00376 


6777 












379 


00377 


1133 












360 




0400 




PAG( 








361 


00400 


4474 


INPUT, 


JMS 


I 


(JLOOSN 


/OUTPUT STMT NUM 


362 


00401 


4777' 




JMS 




GETFN 


/LOOK FOR #<FILE NUM EXPR>: 


363 


00402 


7130 


INPUTL, 


cuu 


CML 


RAR 


/PROCESS INPUT STMT 


38a 


00403 


4505 




JMS 




QEXPR 


/GET EXPR 


385 


00404 


5510 




JMP 




QNEMARK 




386 


00405 


4511 




JMS 




QGETAl 


/GET TOP OF STACK 


387 


00406 


1056 




TAD 




TYPEl 


/LOOK AT THE TYPE 


368 


00407 


7710 




SPA 


CLA 






389 


00410 


5231 




JMP 




RSTRNli 


/HEAD STRING 


390 


00411 


4476 




JMS 




QMODSET 


/SET MODE 


391 


00412 


1376 




TAD 




CWEAD 


/OUTPUT READ COMMAND 


392 


00413 


4500 




JMS 




QOUTMRD 




393 


00414 


7132 




CLL 


CML 


RTR 


/IS IT OIMENSIONEO 7 


394 


00415 


0056 




AND 




TYPEl 




395 


00416 


7650 




SNA 


CLA 






396 


00417 


5222 




JMP 




. + 3 


/NO 


397 


00420 


4SU 




JMS 




OLOAOSS 


/SET UP SS REGS 


398 


00421 


1375 




TAD 




(AF8TA- 


FSTA 


399 


00422 


1374 




TAD 




Cf-STA 


/USE SCALAR STORE 


400 


00423 


1057 


FININP, 


TAD 




SYMBLl 


/PLUS SYMaOL NUMBER 


401 


00424 


4500 




JMS 




OOUTWRO 


/OUTPUT INSTR 


402 


00425 


4513 




JMS 




QCHECKC 


/LOOK FOR , 


403 


00426 


7724 




-54 








404 


00427 


5507 




JMP 




QNEWLIN 


/END OF INPUT 


405 


00430 


5202 




JMP 




INPUTL 


/YES, LOOP 


406 


00431 


7130 


R5TKNG, 


CLL 


CML 


RAR 


/SET MODE 


407 


00432 


447b 




JMS 




QMOOStT 


/TO STRING 


406 


00433 


7132 




CLL 


CML 


RTR 


/SUBSCRIPTED 1 


409 


00434 


0056 




AND 




TYPEl 




410 


00435 


7650 




SNA 


CL* 






411 


00436 


5241 




JMP 




.♦3 


/NO 


412 


00437 


4512 




JMS 




QLOADSS 


/LOAD SS REG 


413 


00440 


1373 




TAD 




(SAREAD- 


•SREAD 


414 


00441 


1372 




TAD 




(SREAD 


/STRING READ 


415 


00442 


5223 




JMP 




FININP 


/USE SOME COMMON CODE 


416 


00443 


4474 


PRINT, 


JMS 




QLOOSN 


/OUTPUT STMT NUM 


417 


00444 


4777* 




JMS 




GETFN 


/GET FILE NUMBER 


418 


00445 


3505 




OCA 




QEXPR 


/USE ENTRY AS Si^ITCH 


419 


00446 


3062 


PRINTL, 


DCA 




PCHLF 


/CLEAR THE FLAG 


420 


00447 


4502 




JMS 




QGETC 


/LOOK FOR A CHAR 


421 


00450 


5334 




JMP 




PRTEND 


/NONE LEFT, END PRINT 


422 


00451 


1371 




TAD 




C-73 


/> ? 
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433 


00452 


7450 




SNA 


aza 


00453 


5261 




JMP 


aas 


00454 


1370 




TAO 


a26 


00455 


7640 




SZA CLA 


437 


00456 


5264 




JMP 


426 


00457 


1367 




TAD 


429 


00460 


4500 




JMS I 


430 


00461 


3505 


NOCR, 


OCA I 


431 


00462 


7201 




CLA lAC 


432 


00463 


5246 




JMP 


433 


0046a 


1505 


TABPNT, 


TAO I 


434 


00465 


7640 




SZA CLA 


455 


00466 


5507 




JMP I 


436 


00467 


4525 




JMS I 


437 


00470 


4501 




JMS 1 


438 


00471 


4475 




JMS I 


439 


00472 


313d 




WTA8 


440 


00473 


5314 




JMP 


441 


00474 


1366 




TAD 


442 


00475 


3347 


PFCAULi 


DCA 


443 


00476 


4503 




JMS I 


444 


00477 


5510 




JMP I 


445 


00500 


4520 




JMS I 


446 


00501 


1056 




TAO 


447 


00502 


7700 




8MA CLA 


44S 


00503 


5307 




JMP 


449 


00S04 


447J 


BADPF, 


JMS I 


450 


00505 


0622 




0622 


451 


00506 


5510 




JMP I 


452 


00507 


4513 




JMS I 


453 


00510 


7727 




-51 


454 


00511 


5304 




JMP 


455 


00512 


1347 




TAD 


456 


00513 


5332 




JMP 


457 


00514 


4504 


TRYPNT, 


JMS I 


458 


00515 


4475 




JMS I 


459 


00516 


5561 




WPNT 


460 


00517 


5322 




JMP 


461 


00520 


1365 




TAO 


462 


00521 


5275 




JMP 


463 


00522 


4504 


PEXP, 


JMS I 


46a 


00523 


4505 




JMS I 


465 


00524 


5510 




JMP I 


466 


00525 


4520 




JMS I 


467 


00526 


7130 




CLL CML 


468 


00527 


0056 




AND 


469 


00530 


7106 




CLL RTL 


470 


00531 


1364 




TAO 


471 


00532 


4500 


PUTl, 


JMS 1 


472 


00533 


5246 




JMP 


473 


00534 


1062 


PRTEND, 


TAD 


474 


00535 


7640 




SZA CLA 


475 


£0536 


5507 




JMP I 


476 


00537 


1363 




TAO 


477 


00540 


4500 


PUT2, 


JMS I 



NOCK /YfeS, DON'T SPACE OUTPUT 
(73-54 /, 7 

TABPNT /LOOK FOR TAB OK PNT 
CFUNC3+20 

OOUTWRD /OUTPUT FUNC3-f20 (COMMA) 
QEXPR /CLtAR THE SWITCH 
/SET NO CRLF FLAG 
PPINTL 
QEXPR /WAS LAST THING AN EXPK ? 

QNEWLIN /YES, CAN'T HAVE TWO IN A KOW 

OBACKl /PUT THAT CHAR 9ACK 

QSAVECP /SAVE CHAR POS 

QCHRWD /LOOK FOR "TAB(" 

TRYPNT /NO TAB 

{FUNC3+100 

PRFUN /SAVE PRINT FUNCTION 

QEXPR /GET ARG 

QREMARK 

QLOAO /LOAD AKG 

TYPEl /MUST BE NUMERIC 

.♦4 /OK, IT IS 
QERM3G /PRINT ERROR 

/BAD FUNCTION REFERENCE 
UREMARK 
QCHECKC /LOOK FOR ) 

BADPF /BAD FUN REFERENCE 

PRFUN /OUTPUT FUNCTION CALL 

PUTl 

9RESTCP /RESTORE CHAR POS 

OCHKWD /LOOK FOR PNT( 

PEXP /NO 

(FUNC3-C120 

PFCALL /GO DO FUN CALL 

OSESTCP /RESTORE CHAR POS 

QEXPR /GET EXPR TO BE PRINTED 

QREMA!<K 

QLOAO /PUT THING INTO FAC (OR SAC) 

RAR 

TYPEl /GET TYPE BIT 

/INTO AC 11 
(WRITE /SWHITE»WRITE*1 
QOUTWRO 
PRINTL 
PCRLF /DID PRINT END WITH 

/, OR t 
QNEWLIN /YES, NO CR LF 
(FUNC3-!-40 
QOUTWRD /CALL TO CRLF ROUTINE 
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47B 00541 5507 



JMP I QNEWUIN /ENO OF PHInT 



479 00542 4474 RESTOR, JMS I (JLODSN /OUTPUT LOAD STMT NUMBEH 



4S0 00543 7201 



4S1 
462 
4B3 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 



00544 
00545 
00546 

00547 
00550 
00551 
00552 
00553 
00554 
00555 
00556 
00557 
00560 



4777' 
1362 

53«k) 

00011) 
1062 
765a 
5747 
1134 
1361 
450ld 
1135 
4500 
5747 



PRFUN, 
UOOSN, 



CtA lAC 

JMS 
TAD 
JMP 



TAD 

SNA CLA 
JMP I 
TAD 
TAD 
JMS I 
TAD 
JMS I 
JMP I 



GETFM 
CREST 

PUT2 



NOSN 

LOOSN 

MORDl 

(LOADSN 

QOUTWRO 

W0RD2 

QOUTwRO 

LODSN 



/NO COLON NEEDED 
/LOAD FILE REG 
/OUTPUT HESTOHE OP 



/OUTPUT STMT NUMBER INTO CQDF 
/ANY STMT NUMBER 7 

/NO, JUST RETURN 

/NOW OUTPUT "LOAD STMT NUM REG" 
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495 
49e> 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
50T 
508 
509 
510 
511 
518 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
546 
549 



/ DIM PROCESSOR 



00561 
00562 
00563 
00564 
00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 

00600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
00610 
00611 
00612 
00613 
00614 
00615 
00616 
00617 
00620 
00621 
00622 
00623 
00624 
00625 
00626 
00627 
00630 
00631 
00632 
00633 
00634 
00635 
00636 
00637 
00640 
00641 
00642 
00643 
00644 
00645 



6000 

740ii 

7440 

7412 

7520 

7500 

7420 

0017 

7705 

1000 

5500 

2400 

4300 

7411 

2111 

0600 

4514 

5301 

1026 

7006 

7700 

7420 

5301 

4777' 

1025 

3342 

4515 

5301 

5224 

4267 

5232 

7130 

3026 

4516 

6211 

5257 

4777' 

4513 

7727 

5301 

4267 

1376 

1376 

3021 

4516 

6211 

1437 

0376 

7450 

5247 

7500 

1021 

7640 

5301 



PAGE 
DIM, JMS I 

JMP 

TAO 

RTL 

SMA CLA 

SNL 

JMP 

JMS 

TAD 

OCA 

JMS I 

JMP 

JMP 

JMS 

JMP 

CLL CML 

DCA 

JMS I 

CDF 

JMP 
TWOOIM, JMS 

JMS I 

-51 

JMP 

JMS 

TAD 
CHKDIM, TAD 

OCA 

JMS I 

COF 

TAD 1 

AND 

SNA 

JMP 

SMA 

TAD 

SZA CLA 

JMP 



QGETNAM 

OIMERR 

TYPE 



DIMERR 

SMLNUM 

EXPON 

OIMl 

QCOMARP 

DIMERR 

TWODIM 

CHKSOM 

CHKOIM 

RAR 

TYPE 

QLOOKUP 

10 

FINOIM 

SMLNUM 

OCHECKC 



/GET VAR NAME 

/CHECK TYPE 

/MOVE BITS TO BE TESTED 

/IF FUNC BIT SET THEN ERROR 

/IF DIM BIT NOT SET THEN ERROR 

/NO DIMENSIONS 

/GET DIMENSION 

/SAVE IT 

/, OR ) ?? 

/NEITHER IS BAD 

/, THERE'S ANOTHER OIMENSION 

/CHECK SIZE IF STRING 

/NUMERIC VECTOR, CHECK PHEV RtF 

/THIS WAS A STRING SIZE DIM 

/PERFORM THE SPECIAL CASE 

/OF NOT CHECKING PREVIOUS REFS 

/GET SECOND 
/LOOK FOR 3 



DIMERR 

CHKSOM /CHECK SIZE IF STRING ARRAY 

(7000 /NUMERIC ARRAY 

C7000 /GET NUMBER OF DIMS 

TEMP 

QLOOKUP /FIND ST ENTRY 

10 

STPTR /LOOK AT OIM BITS 

C7000 /PREVIOUSLY REFERENCED ? 

UNREFD /NO 

/IF MINUS, CAUSE ERROR 

TEMP /COMPARE NUMBER 

OIMERR /NUMBER OF OIMS DON'T MATCH 
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550 00646 3021 DCA TEMP /ZERO TEMP 

551 00647 7130 UNREFO, CUL CML RAR /PUT IN DIMENSIONED HIT 

552 00650 1021 TAD TEMP /AND NUMBER OF DIMENSIONS 

553 00651 7041 CIA /NEGATE WHOUE MESS C4000»-a00iJ) 

554 00652 1437 TAD I STPTR /TOGETHER WITH SVM NUMBER 

555 00653 3437 DCA I STPTR 

556 00654 2037 ISZ STPTR 

557 00655 1342 TAD OIMl /NOW FIRST 0IMENS^O^ CIF 2) 

558 00656 3437 DCA I STPTR 

559 00657 2037 FINDIM, ISZ STPTR 

560 00660 1025 TAD EXPON /NOW SECOND CIF 2, OTHERWISE FIRST) 

561 00661 3437 OCA I STPTR 

562 00662 6201 CDF 

563 00663 4513 JMS I QCHECKC /LOOK FOR , 

564 00664 7724 -54 

565 00665 5507 JMP I QNEWLIN /NONE, ASSUME END OF DIM 

566 00666 5200 JMP DIM /GET NEXT ELEMENT 

567 00667 0000 CHKSDM, /CHECK SIZE OF STRINGS 

568 00670 1026 TAD TYPE /WAS THIS A STRING DIM ? 

569 00671 7700 SMA CLA 

570 00672 5667 JMP I ChKSOM /NO, RETURN IMMEDIATE 

571 00673 2267 ISZ CHKSDM /YES, SKIP ON RETURN 

572 00674 1025 TAD EXPON /SIZE MUST 3E < 73 

573 00675 7100 CLL 

574 00676 1375 TAD C-lll 

575 00677 7620 SNL CLA 

576 00700 5667 JMP I CHKSOM /OK, SIZE « 73 

577 00701 4473 DIMERR, JMS I QERMSG /GIVE ERROR 

578 00702 0411 0411 

579 00703 5510 JMP I QREMARK /ABORT STMT 



OS/8 


BASIC COMPILES 




PALB-V8 


l0/3a/72 PAGE q 


560 






/ NEXT 


PROCESSOR 




581 


00704 


4514 


NEXTX, 


JMS 




QGETMAM 


/GET INDEX VARIABLE 


582 


00705 


5362 




JMP 




9ADNXT 




583 


00706 


4516 




JMS 




QUOOKUP 




S84 


00707 


1026 




TAO 




TYPE 


/MUST BE NUMERIC 


585 


00710 


7710 




SPA 


CUA 






586 


00711 


5362 




JMP 




BADNXT 


/IT ISN'T 


587 


00712 


4476 




JMS 




QMOOSET 


/N MODE 


588 


00713 


1374 


NEXTL, 


TAD 




(-STACKA-3 


589 


00714 


1015 




TAD 




STACK 


/ANY FOR'S LEFT ? 


590 


00715 


7710 




SPA 


CLA 




/(OK IF STACKA ABOVE ap!00) 


591 


00716 


5362 




JMP 




BADNXT 


/NO 


592 


00717 


4522 




JMS 




QPOP 


/GET LABEL ADDR 


593 


00720 


3021 




OCA 




TEMP 




59a 


00721 


4522 




JMS 




QPOP 


/GET LABEL FIELD 


595 


00722 


3342 




DCA 




LUPFLD 




596 


00723 


4522 




JMS 




QPOP 


/GET STEP VAR 


597 


00724 


1370 




TAO 




XLOAO 


/LOAD IT 


598 


00725 


4500 




JMS 




OOUTWRO 




599 


00726 


4522 




JMS 




QPOP 


/GET INDEX VAR 


600 


00727 


3067 




OCA 




FINOEX 




601 


00730 


1067 




TAD 




FINOEX 


/ADD IT TO STEP CMDDs0) 


602 


00731 


4500 




JMS 




QOUTWSO 




603 


00732 


1342 




TAD 




LUPFLD 


/CREATE JUMP TO LOOP 


600 


00733 


037J 




AND 




C70 




605 


00734 


7106 




CIL 


RTL 






606 


00735 


1372 




TAD 




(JUMP 




607 


00736 


4500 




JMS 




OOUTWRO 




608 


00737 


7144 




CLL 


CMA 


RAL 


/GET LABEL DEFINITION ADOR 


609 


00740 


1021 




TAD 




TEMP 




610 


00741 


4500 




JMS 




OOUTWRO 


/OUTPUT IT AS LOW PART OF JUMP 


6U 






OIMl, 










612 


00742 


7402 


LUPPLO, 


HLT 








613 


00743 


7130 




CLU 


CML 


RAK 


/SET LABEL DEFINED BIT 


614 


00744 


1044 




TAO 




LOCTRH 


/DEFINE END OF LOOP LABEL 


615 


00745 


3421 




DCA 




TEMP 




616 


00746 


2021 




ISZ 




TEMP 




617 


00747 


1045 




TAD 




LOCTRL 




618 


00750 


3421 




DCA 




TEMP 




619 


00751 


6201 




CDF 








620 


00752 


1013 




TAD 




STACK 


/BACK OFF STACK LEVfcL 


621 


00753 


3066 




DCA 




5TKLVL 




622 


007S4 


4532 




JMS 




QNOREGS 


/FORGET REGS 


623 


00755 


1027 




TAD 




SYMBOL 


/IS THIS THE RIGHT NEXT 7 


62a 


00756 


7041 




CIA 








625 


00757 


1067 




TAD 




FINOEX 




626 


00760 


7650 




SMA 


CLA 






627 


00761 


5507 




JMP 




QNEWLIN 


/YESi FINISHED 


628 


00762 


4473 


BADNXT, 


JMS 




QERMSG 


/NEXT WITHOUT FOR 


629 


00763 


1606 




160( 


> 






630 


00764 


5510 




JMP 


I 


QREMARK 




631 


00765 


0040 


UMOPR, 


40n»UMRTNE-l 




632 


00766 


0001 












633 


00767 


3534 












63a 


00770 


2000 


XLOAO, 


FLDA»AFLOA 
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636 






/ UDEF PROCESSOR (OEFIKJE USER FUMCTION) 


637 


00772 


5001 










836 


00773 


0070 










639 


00774 


065b 










6<tei 


00775 


7667 










641 


00776 


7000 










642 


00777 


5400 










643 




1000 


PAGE 






6ttU 


01000 


2333 


UDEF, ISZ 




NFUNS 


/ROOM FOR ANOTHER FUN ? 


645 


01001 


4530 


JMS 


I 


QLETTER 


/GET FIRST LETTER 


646 


01002 


5251 


JMP 




UEFBAD 


/ERROR IN DEFINE 


647 


01003 


7106 


CLU 


RTL 




/PUT INTO HIGH ORDER 


646 


01004 


7006 


RTL 








649 


01005 


7006 


RTL 








6S0 


01006 


3134 


OCA 




NAMEl 


/SAVE CHAR I 


6S1 


01007 


4530 


JMS 


I 


QLETTER 


/GET SECOND LETTER 


652 


01010 


5251 


JMP 




DEFBAO 


/ERROR 


653 


01011 


1134 


TAD 




NAMEl 


/COMBINE THE Ti«IO CHARS 


654 


01012 


7041 


CIA 








655 


01013 


3727 


OCA 


I 


FUNPTR 


/SAVE IN FUN TABLE 


656 


01014 


2327 


ISZ 




FUNPTR 




657 


01015 


4530 


JMS 


I 


QLETTER 


/GET THIRD LETTER 


658 


01016 


5251 


JMP 




DEFBAD 




659 


01017 


7041 


CIA 






/SAVE NEG OF THIHD LETTER 


660 


01020 


3727 


OCA 


I 


FUNPTR 




661 


01021 


2327 


ISZ 




FUNPTR 


/BUMP POINTER 


662 


01022 


1331 


TAD 




M5 


/NUMERIC ARG COUNT 


663 


01023 


3021 


OCA 




TEMP 


/ (MAX OF 4 ARGS) 


664 


01024 


7146 


CUL 


CMA 


RTL 


/STRING ARG COUNT 


665 


01025 


3022 


OCA 




TkMP2 


/ (MAX OF 2 ARGS) 


666 


01026 


4513 


JMS 


I 


QCHECKC 


/IS IT A STRING FUN 7 


667 


01027 


7734 


-44 








668 


01030 


7610 


SKP 


CLA 






669 


01031 


713^ 


CLL 


CML 


RAR 


/YES, SET TYPE OF FUNCTIOf 


67e 


01032 


3056 


OCA 




TYPEl 




671 


01033 


4513 


JMS 


I 


QCMECKC 


/LOOK FOR ( 


672 


01034 


7730 


-50 








673 


01035 


5251 


JMP 




DEFBAD 


/ERROR IF MISSING 


674 


01036 


4514 


OALOOP, JMS 


I 


QGETNAM 


/GET AN ARG 


675 


01037 


5251 


JMP 




OEFBAD 




676 


01040 


1026 


TAD 




TYPE 


/LOOK AT ITS TYPE 


677 


01041 


7104 


CUU 


RAL 




/SHIFT TYPE BIT INTO LINK 


676 


01042 


7640 


SZA 


CLA 






679 


01043 


5251 


JMP 




OEFBAD 


/OTHER BITS MUST BE OFF 


680 


01044 


7430 


SZL 








681 


01045 


5254 


JMP 




STRARG 


/STRING ARG 


682 


01046 


1021 


TAD 




TEMP 


/GET ARG NUMBER 


663 


01047 


2021 


ISZ 




TEMP 


/INCREMENT IT 


684 


01050 


5260 


JMP 




DAPUSH 


/GO SAVE IT 


665 


01051 


4473 


OEFBAD, JMS 


I 


QERMSG 


/BAD USER DtF 


6S6 


01052 


2504 


2504 








687 


01053 


5510 


JMP 


I 


QREMARK 




668 


01054 


1022 


STRARG, TAD 




TEMPg 


/GET ARG NUMBER 


689 


01055 


2022 


ISZ 




TEMP2 


/AND INCREMENT IT 


690 


01056 


5261 


JMP 




OAPUSH+1 
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BASIC COMPILE!- 
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bti 


01057 


5251 




JMP 




0EF8AU 


/TOD MANY STRING ARGS 


692 


01060 


1330 


DAPUSH, 


TAD 




Q2 


/ADJUST AR6 NUMaCR 


693 


01061 


1330 




TAD 




Q2 


/ADD 4 FOR NUM, 2 FOR STRING 


69tt 


01062 


7510 




SPA 








695 


01063 


7332 




CUA 


CIL 


CML RTR 


/FIRST ARG STAYS IN AC 


696 


01064 


1026 




TAD 




TYPE 


/ADD IN TYPE BIT 


697 


01065 


4521 




JM8 


I 


QPU8H 


/SAVE IT ON STACK 


698 


01066 


4515 




JMS 


I 


aCOMARP 


/LOOK FOR , OH ) 


699 


01067 


5251 




JMP 




DEFBAD 


/ERROR IF NEITHER 


700 


01070 


5236 




JMP 




OALOOP 


/, GET NEXT ARG 


701 


01071 


1022 




TAD 




TEMP2 


/GET TOTAL NUMBER OF ARGS 


702 


01072 


1021 




TAD 




TtMP 




703 


01073 


1332 




TAD 




Q10 


/ADJUST COUNT 


70a 


01074 


7041 




CIA 






/NEGATED 


705 


01075 


3062 




DCA 




DACNT 




706 


01076 


1727 




TAO 


1 


FUNPTR 


/GET FUNCTION CODE 


707 


01077 


2327 




ISZ 




FUNPTR 


/BUMP POINTER 


708 


01100 


3134 




DCA 




k40RDl 


/MAKE IT THE SEARCH OBJECT 


709 


01101 


4726 




JMS 


I 


XSTCHtK 


/MAKE SURE THERE'S ROOM 


710 


01102 


7560 




E0S1 


-10 






711 


01103 


4517 




JMS 


I 


QLUKUP2 


/ENTER NEW FUNCTION 


712 


01104 


2570 




FUNCTN 






713 


01105 


7777 




-1 








71« 


01106 


1062 




TAD 




OACNT 


/PUT IN ARG COUNT 


715 


01107 


4070 




JMS 




SETFLD 


/(FIRST SET THE FIELOl 


716 


01110 


3416 




OCA 


I 


NEXT 




717 


01111 


6201 


CAPUT, 


CDF 








718 


01112 


4522 




JMS 


I 


aPOP 


/GET ARG TYPE (LAST TO PIRST1 


719 


01113 


4070 




JMS 




SETFLD 


/SET THE FIELD 


720 


01114 


3416 




DCA 


I 


NEXT 


/SAVE IT 


721 


01115 


2062 




ISZ 




OACNT 


/ANY MORE ? 


722 


01116 


5311 




JMP 




OAPUT 


/YES 


723 


01117 


1056 




TAD 




TYPEl 


/PUT IN TYPE OF FUNCTION 


724 


01120 


3416 




DCA 


I 


NEXT 




725 


0U21 


6201 




CDF 








726 


01122 


4513 




JMS 


I 


aCHECKC 


/LOOK FOR A COMMA 


727 


01123 


7724 




-54 








728 


01124 


5507 




JMP 


I 


ONEMLIN 


/NO COMMA, END OF LINE 


729 


01125 


5200 




JMP 




UDEF 


/GET NEXT DEFINITION 


730 


01126 


2317 


X8TCMEK 


,8TCMEK 






731 


01127 


6162 


FUNPTR, 


ENDFNS 






732 


01130 


0002 


Q2, 


2 






/THESE FOUR WORDS 


733 


01131 


7773 


M5, 


-5 






/PREVENT ERRONEOUS "SAVtS" 


734 


01132 


0010 


Q10, 


10 






/BY THE ROUTINE SAVAC 


735 


01133 


7757 


NFUNS, 


-21 






/WHEN THE OP STACK IS EMPTY 


736 






STACKO, 








/OPERAND STACK 


737 




0044 




STOKSZB 


UQEF+200 


-STACKO 
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738 

759 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

78B 

789 

790 

791 

792 



01200 

01201 

01202 

01203 

01204 

01205 

01206 

01207 

01210 

01211 

01212 

01213 

01214 

01215 

01216 

01217 

01220 

01221 

01222 

01223 

01224 

01225 

01226 

01227 

01230 

01231 

01232 

01233 

01234 

01235 

01236 

01237 

01240 

01241 

01242 

01243 

01244 

01245 

01246 

01247 

01250 

01251 

01252 

01253 

01254 

01255 

01256 

01257 

01260 

01261 

01262 

01263 

01264 



120id 
4532 
4514 
5253 
1026 
3022 
3061 
1026 
7006 
7710 
7420 
5253 
4476 

1027 

3246 

4514 

525i 

7150 

0026 

7640 

5253 

4516 

1037 

4521 

1027 

4521 

1026 

4521 

2061 

4515 

5253 

5216 

1246 

3134 

1061 

7041 

1377 

3246 

4776' 

0000 

4517 

2570 

7777 

5256 

4473 

040S 

5510 

1016 

3012 

1016 

1061 

1375 

3016 

4070 



/ DEF PHOCESSOU 

PAGE 
DEF, JMS 1 

JMS I 

JMP 

TAD 

DCA 

OCA 

TAD 

RTL 

SPA CLA 

SNL 

JMP 

JMS I 

TAD 

DCA 
ARGLUP, JMS 1 

JMP 

CLU CMA 

AND 

SZA CLA 

JMP 

JMS 1 

TAD 

JMS I 

TAD 

JMS I 

TAD 

JMS 1 

ISZ 



JMS 1 

JMP 

JMP 

TAD 

OCA 

TAD 

CIA 

TAD 

PCA 

JMS 

FUNNAM, 

JMS I 
FUNCTN 
-1 
JMP 

BADDEF, JMS I 
0405 
JMP I 
TAD 
OCA 
TAD 
TAD 
TAD 
DCA 
JMS 



QNOREGS 

QGETNAM 

8A0DEF 

TYPE 

TEMP2 

ANGCNT 

TYPE 



8ADDEF 

QMODSET 

SYMBOL 

FUNNAM 

QGETNAM 

BADOEF 

RAN 

TYPE 



/FORGET REGS 
/GET FUN NAME 

/NO 5ooo 
/SAVE ITS TYPE 

/ZERO ARG COUNT 
/TYPE MUST BE 3000 OR 7000 
/MOVE BITS TO BE TESTED 
/FUN BIT OFF IS AN ERROR 
/DIM BIT OFF IS AN ERROR 

/ENTER N MODE 
/SAVE FUNCTION NAME 

/GET ARG NAME 

/LOOK AT TYPE 



OKFUN, 



BAODEF /AKG WAS AN ARRAY OR FUNC 

QLOOKUP /ENTER INTO S.T. 

STPTR /SAVE ST ADDRESS 

QPUSH 

SYMBOL /AND SYMBOL NUMBER 

QPUSH 

TYPE /AND ARG TYPE 

QPUSH 

ARGCNT /BUMP ARG COUNT 

QCOMARP /LOOK FOR , OR ) 

BADDEF 

ARGLUP /, GET NEXT ARG 

FUNNAM /ENTER FUNCTION 

MORDl 

AHGCNT /FIRST GET ENOUGH ROOM 

(EOST-3 

FUNNAM 

5TCHEK /CHECK IT 

QLUKUP2 /LOOK UP FUNCTION 



OKFUN /OK, NOT MULTIPLE DEFINED 

OERMSG /BAD DEFINE 

OREMARK 

NEXT /SAVE "NEXT" 

X12 

NEXT /INCREMENT NEXT BY 

ARGCNT /NUMBER OF ARGS 

C4 /PLUS 4 

NEXT 

SETFLD /GET ROOM FOR LABEL 
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793 

79« 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
620 

sai 

822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
B3B 
839 
840 
841 
842 
843 
844 
845 
846 
847 



01265 
01266 
01267 
01270 
01271 
01272 
01273 
01274 
01275 
01276 
01277 
01300 
01301 
01302 
01303 
01304 
01305 
01306 
01307 
01310 
01311 
01312 
01313 
01314 
01315 
01316 
01317 
01320 
01321 
01322 
01323 
01324 
01325 
01326 
01327 
01330 
01331 
01332 
01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 



7130 

3416 

101b 

3062 

301b 

6201 

1071 

333b 

1071 

3774' 

1071 

0373 

7106 

1372 

4500 

10b2 

4500 

1015 

3060 

1061 

7040 

3021 

1061 

7041 

3061 

1061 

533b 

6201 

4522 

302b 

102b 

4771' 

4522 

72043 

4522 

303^ 

6211 

1027 

3437 

102b 

1027 

7402 

3412 

2021 

5320 

7130 

0022 

3412 

7130 

1044 

3412 

1045 

3412 

6201 

1015 



CLL CML 

DCA I 

TAD 

DCA 

ISZ 

COF 

TAD 

OCA 

TAD 

OCA 

TAD 

AND 

CLL RTL 

TAD 

JMS I 

TAD 

JMS I 

TAD 

DCA 

TAD 

CMA 

OCA 

TAD 

CIA 

DCA 

TAD 

JMP 
CMGARG, CDF 

JMS I 

DCA 

TAD 

JMS 
SmTARG, JMS I 

CLA 

JMS I 

DCA 

CDF 

TAO 

OCA I 

TAO 

TAD 
FUNFLD, HLT 

OCA I 

ISZ 

JMP 

CLU CML 
AND 
OCA I 
CLL CML 
TAO 
OCA I 
TAO 
DCA I 
COF 
TAO 



RAR 

NEXT 

NEXT 

JAKONO 

MEXT 

LUFLO 

FUNFLU 

LUFLO 

JARFLO 

LUFLO 

(70 

(JUMP 

QOUTmRO 

JAROND 

qoutwrd 

STACK 

OLOSTK 

ARGCNT 

TEMP 
ARGCNT 

ARGCNT 
ARGCNT 
FUNFLO 

QPOP 

TYPE 

TYPE 

GENTMP 

QPOP 

QPOP 

STPTR 

10 

SYMBOL 

STPTR 

TYPE 

SYMBOL 

X12 

TEMP 

CHGARG 

RAR 

TEMP2 

X12 

RAR 

LOCTRH 

X12 

LOCTRL 

X12 



/FOR JUMP AROUNO 
/SET DEFINED BIT 
/SAVE AOOR 
/FOR LATER 



/SAVE FIELD OF FUN BLOCK 

/ALSO FIELD OF LABEL 

/GET FIELD 
/ISOLATE BITS 
/INTO JUMP 1N5TR 

/OUTPUT IT 
/OUTPUT LOW PART 
/OF JUMP ADDR 
/SAVE STACK 

/GET COUNT 

/TWICE 

/STORE COUNT FIRST 

/GET ARG TYPE 



/GENERATE A TEMPORARY 
/PURGE SYMBOL NUMBER 

/GET ST AOOR OF 
/OF DUMMY ARG 

/PUT IN TEMP SYMBOL NUMBER 
/TO FAKE EXPR 
/CREATE ARG DESCRIPTOR 
/FOR FUNC BLOCK 

/AND PUT IT INTO F.B. 

/MORE ARGS7 

/YUP 

/SAVE TYPE OF FUNCTION 

/SET DEFINED BIT 
/AND LOCATION COUNTER 
/AT START OF FUNCTION 



STACK /SAVE BOTTOM OF STACK 
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848 


131354 


3013 


849 


01355 


1060 


850 


01356 


3015 


851 


01357 


4Sli 


852 


01360 


77B3 


853 


01361 


5253 


854 


01362 


4505 


855 


01363 


5510 


856 


01364 


4520 


857 


01365 


1013 


858 


01366 


3015 


859 


01367 


5770' 
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OCA 




X13 




TAD 




0L08TK 


/RESTORE TO TQP 


OCA 




STACK 




JMS 


I 


OCHECKC 


/FIND « 


-75 








JMP 




BADDEF 




JMS 


I 


QEXPR 


/COMPILE FUNCTIO 


JMP 


I 


QREMARK 




JMS 


1 


QLOAO 


/GET IT INTO AC 


TAD 




)(13 


/RESTORE STACK 


DCA 




STACK 


/TO BOTTOM 


JMP 




RESARG 


/FINISH DEF 
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660 / DEF PROCESSOR (FINALE) 

661 01370 1400 
862 01371 4200 
663 01372 5001 
864 01373 0070 

665 01374 14U 

666 01375 0004 
867 01376 2317 
866 01377 7565 

864 1400 PAGE 

870 01400 1413 RE5ARG, TAD I X13 /GET ST ADOK 

671 01401 3037 OCA STPTR 

872 01402 1413 TAD I til /PUT BACK CORRECT SVM # 

873 01403 6211 CDF 10 

874 01404 3437 OCA I STPTR 

875 01405 6201 CDF 

676 01406 2013 ISZ K13 /SKIP OTHER STUFF 

877 01407 2061 ISZ AHGCNT 

878 01410 5200 JMP RESARG /RESTORE NEXT 

879 01411 1377 TAD CRET /OUTPUT RETURN CODE 

880 01412 4500 JK5 I QOUTWHO 
681 01413 7402 JARFLD, HLT 

882 01414 7130 CLU CMU RAR /SET LABEL DEFINED BIT 

683 01415 1044 TAD LOCTRH /STICK IN AODR 

884 01416 3462 OCA I JAROND /OF END OF FUNCT 

885 01417 2062 ISZ JAROND /PLUS ONE 

666 01420 1045 TAD LOCTRL /STORE LOW AODR 

687 01421 3462 DCA I JAROND 

686 01422 6201 COF 

889 01423 1033 TAD TMPCNT /SAVE NEW TEMP LEVELS 

890 01424 3034 DCA TMPLVL 

891 01425 1035 TAD STMPCT 

892 01426 3036 DCA STMPLV 

893 01427 4532 JM5 I QNOREGS /FORGET REGS 

894 01430 5507 JMP I QNEWLIN /END OF OEF 
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895 






/ DATA 


STATEMENT PROCESSOR 


B96 


01431 


4526 


DATA, 


JMS 


I 


QNUMBER 


/LOOK FOR NUMBER 


897 


01432 


5241 




aMP 




08TRNG 


/MUST BE A STRING 


898 


01433 


4255 




JMS 




GENTRY 


/MAKE AN ENTRY 


899 


01434 


7775 




-3 






/3 WORDS LONG 


900 


01435 


4513 


MORDAT, 


JMS 


I 


QCHECKC 


/LOOK FOR , 


901 


01436 


7724 




-54 








902 


01437 


5507 




JMP 


I 


QNEWLIN 


/END OF DATA 


903 


01440 


5231 




JMP 




DATA 


/OO NEXT ELEMENT 


904 


01441 


4527 


DSTHNG, 


JMS 


I 


QSTRING 


/LOOK FOR STRING 


905 


01442 


5507 




JMP 


I 


ONEH/LIN 


/SAD 


906 


01443 


1134 




TAD 




WORDl 


/COMPUTE SIZE 


907 


01444 


7001 




lAC 








908 


01445 


7170 




CLL 


CML, 


CMA RAR 




909 


01446 


3253 




DCA 




OSSIZE 


/INCLUDING CHAR COUNT 


910 


01447 


1134 




TAD 




WORDl 


/NEGATE COUNT 


911 


01450 


7041 




CIA 








912 


01451 


3134 




OCA 




WOROl 




913 


01452 


4255 




JMS 




OENTRY 


/CREATE ENTRY 


914 


01453 


0000 


OSSIZE, 











915 


01454 


5235 




JMP 




MORDAT 


/GO 00 MORE 


916 


01455 


0000 


DENTRY, 









/MAKE AN ENTRY IN DATA LIST 


917 


01456 


1655 




TAD 


I 


OENTRY 


/GET SIZE 


918 


01457 


3021 




DCA 




TEMP 




919 


01460 


2255 




ISZ 




OENTRY 




920 


01461 


1021 




TAD 




TEMP 


/INCREMENT SIZE COUNT 


921 


01462 


1051 




TAO 




OLSIZE 




922 


01463 


3051 




OCA 




DUSIZE 




923 


01464 


1376 




TAD 




(EOST 


/HOW MUCH 00 WE NEED ? 


924 


01465 


1021 




TAD 




TEMP 




925 


01466 


3270 




OCA 




,♦2 




926 


01467 


4775' 




JMS 




STCHEK 


/ASK FOR IT 


927 


01470 


0000 













928 


01471 


1774* 




TAO 




FREFLD 


/GET FIELD OF FHEE SPACE 


929 


01472 


3071 




OCA 




LUFUO 


/SAVE IT IN SETFLO SU8R0UTI 


930 


01473 


6211 


DATFUD, 


COF 




10 




931 


01474 


1016 




TAO 




NEXT 


/HOOK IN NEW ENTRY 


932 


01475 


7001 




lAC 








933 


01476 


3725 




OCA 


I 


DATPTH 




934 


01477 


2325 


PATCH3, 


■MO — -^ — B44£jJi---/^»«*»*fe»-i'+teirTTrnr' 


935 


01500 


1071 




TAD 




LUFLO 




936 


01501 


3725 




OCA 




OATPTR 




937 


01502 


4070 




JMS 




SETFLO 




938 


01503 


1021 


^-PTAO 




TEMP 


/SAVE SIZE OF ENTRY 


939 


01504 


34lb 




DCA 




NEXT 




940 


01505 


1373 




TAO 




CWORDI- 


1/MAKE READY TO MOVE 


941 


01506 


3010 




DCA 




X10 




942 


01587 


6201 


DEUOOP, 


CDF 








943 


01510 


1410 




TAD 




X10 


/GET WORD 


944 


01511 


4070 




JMS 




SETFLO 




945 


01512 


3416 




DCA 




NEXT 


/SAVE IT 


946 


01513 


2021 




ISZ 




TEMP 


/MORE 7 


947 


01514 


5307 




JMP 




DELOOP 




948 


01515 


3416 




DCA 




NEXT 


/SAVE ROOM FOR POINTERSCDF 


949 


01516 


1016 




TAO 




NEXT 


/THIS IS NOW LAST ENTRY 



^flF 'i-'i ^'^ *^'% 



f 



OS/8 


BASIC COMPIUEH 
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950 


01517 33S5 




951 


01520 1071 


952 


01521 327i 


OCA OATFLD /AND THIS IS ITS FItLO 


953 


01522 3416 


DCA 1 NEXT 


954 


01523 6201 


-— ^OF 


955 


01524 5655 


JMP I OENTRY 


956 


01525 2566 


DATPTR, OATLST 



3 



# 



OS/8 


BASIC COMPILER 




PAL8-V8 10/30/72 PAGE 14 


957 






/ READ 


PROCESSOR 


9se 


01526 


4474 


READX, 


JMS 


I 


OLODSN /OUTPUT STMT NUMBER 


959 


01527 


7130 




CLL 


CML 


RAR /GET VAR TO READ 


968 


01530 


4505 




JMS 


I 


QEXPR /SAME AS LEFT SIDE OF LET 


9«.l 


01531 


5510 




JMP 


I 


OREMARK 


962 


01532 


4511 




JMS 


I 


QGETAl /GET VAR INFO FROM STACK 


963 


01533 


1056 




TAD 




TYPEl /SET MODE 


964 


01534 


4476 




JMS 


I 


QMOOSET 


965 


01535 


1056 




TAD 




TYPEl /WHAT TYPE ? 


966 


01536 


7710 




SPA 


CLA 




967 


01537 


1372 




TAD 




(SROL-MRDL 


968 


01540 


1371 




TAD 




(NRDL /STRING OR NUMERIC 


969 


01541 


4500 




JMS 


I 


QOUTMRD 


970 


01542 


7132 




CLL 


CML 


RTR /SUBSCRIPTS ? 


971 


01543 


0056 




AND 




TYPEl 


972 


01544 


7630 




SNA 


CLA 




973 


01545 


5350 




JMP 




.♦3 /NO 


974 


01546 


4512 




JMS 


I 


QLOAOSS /YESf LOAD SS REGS 


975 


01547 


137B 




TAD 




CAF5TA-FSTA 


976 


01550 


1367 




TAD 




(>STA /ARRAY OR SCALAH STORE 


977 


01551 


1057 




TAD 




SYMBLl 


978 


01552 


4500 




JMS 


I 


QOUTWRD 


979 


01553 


4513 




JMS 


I 


QCHECKC /ANY MORE ? 


98e 


01554 


7724 




-54 




/CHECK FOR COMMA 


981 


01555 


5507 




JMP 


I 


QNEMLIN /NO 


982 


01556 


5327 




JMP 




READX+l /YUP 


963 


01557 


0040 


AMPSNO, 


4011 » AMPRTN» U 4000 >X ADD ;X ADD 


984 


01560 


0001 










985 


01561 


6506 










986 


01562 


4000 










987 


01563 


5162 










988 


01564 


5162 











/OS/8 BASIC COMPILEH 
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989 
990 
991 
992 
993 
99<l 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
101<> 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
104S 
1043 



/ FOR PROCESSOR 



01567 
01570 
01571 
01572 
01573 
01574 
01575 
01576 
01577 

01600 
01601 
01602 
01603 
01604 
01605 
01606 
01607 
01610 
01611 
01612 
01613 
01614 
01615 
01616 
01617 
01620 
01621 
01622 
01623 
01624 
01625 
01626 
01627 
01630 
01631 
01632 
01633 
01634 
01635 
01636 
01637 
01640 
01641 
01642 
01643 
01644 
01645 
01646 
01647 
01650 
01651 
01652 
01653 



2400 

4300 

7521 

7740 

0133 

2266 

2317 

7570 

7404 

1600 

4474 

4514 

5777' 

1026 

7640 

5777' 

4516 

1027 

3067 

4513 

7703 

5777' 

1017 

3336 

1020 

3335 

7410 

4504 

4502 

5777' 

7200 

4501 

4475 

6273 

5221 

4776' 

3333 

4475 

5156 

5327 

4776' 

3334 

1375 

4500 

1374 

3062 

4502 

7410 

5777' 

133b 

3020 

1336 

3017 

4773' 



PAGE 
FOR, JMS I 

JM8 1 

JMP 

TAD 

SZA CLA 

JMP 

JMS I 

TAO 

OCA 

JMS I 

-75 

JMP 

TAD 

OCA 

TAO 

DCA 

SKP 
FINDTO, JMS I 

JMS 1 

JMP 

CLA 

JMS I 

JMS I 

WTO 

JMP 

JMS 

DCA 

JMS I 

WSTEP 

JMP 

JMS 

OCA 

TAO 

JMS I 

TAO 
SAVEJF, OCA 

JMS I 

SKP 

JMP 

TAD 

DCA 

TAO 

OCA 

JMS 



QLODSN /OUTPUT STMT NUMBER 
OGETNAM /SET INDEX VAHIABLE 
8A0F0R /SAD 
TYPE /MUST BE NUMBER 

BAOFOR /ITS NOT 
QLOOKUP /ST SEARCH 
SYMBOl. /SAVE INOEX VAR 
FINDEX /FOR LATER 
QCHECKC /FIND = 



BADFOR 

CHRPTR 

FORCP 

NCHARS 

FORNC 



/SAVE CHAR POSITION 
/IN A SPECIAL PLACE 



ORESTCP /RESTORE CHAR POS 
QGETC /SKIP A CHAR 
BAOFOR 

QSAVECP /SAVE THIS POSITION 
OCHKWD /LOOK FOR "TO" 

FINDTO /KEEP GOING 

FSU82 /LOAD LIMIT AND SAVE IN TEMP 

FLIMIT /SAVE LIMIT VAR 

QCHKWO /LOOK FOR "STEP" 



STEP! 

FSUB2 

FSTEP 

(SETJF 

QOUTWRD 

tJFOR 

FORJMP 

QGETC 

BAOFOR 

FORNC 

NCHARS 

FORCP 

CHRPTR 

FSUBl 



/USE 1,0 FOR THE STEP 
/LOAD STEP AND SAVE IN TEMP 
/SAVE STEP VAR 
/OUTPUT SETJF 

/STEP IS VARIABLE, USE JFOR 
/SAVE CORRECT JUMP 
/ANY MORE CH4RS ? 

/YES, ERROR 

/RESTORE CHAR POSITION 

/FROM SPECIAL PLACE 



/COMPILE INITIAL VALUE INTO FAC 



# 



/OS/8 BASIC COMPILEri 



teoa 


01654 


4772' 




JM5 




STCHEK 


1045 


01655 


7570 




E0S1 






104f> 


01656 


1771* 




TAO 




FREFLO 


1047 


01657 


3260 




OCA 




FDBFLO 


104fi 


01660 


7402 


FORFLD, 


HUT 






1049 


01661 


7130 




CIL 


CML 


RAR 


1050 


01662 


1044 




TAD 




LOCTRH 


1051 


01663 


3416 




DCA 


I 


NEXT 


1052 


01664 


1045 




TAO 




LOCTRL 


1053 


01665 


3416 




DCA 


I 


NEXT 


10S4 


01666 


7130 




CLL 


CML 


RAR 


1055 


01667 


3416 




OCA 


I 


NEXT 


1056 


01670 


6201 




COF 






1057 


01671 


1333 




TAO 




FLIMIT 


1058 


01672 


1343 




TAD 




XSUB 


1059 


01673 


4500 




JMS 


1 


OOUTWRO 


1060 


01674 


1260 




TAO 




FORFLD 


1061 


01675 


0370 




AND 




(70 


1062 


01676 


7106 




CLL 


RTL 




1063 


01677 


1062 




TAO 




FORJMP 


1064 


01700 


4500 




JMS 


I 


QOUTWRO 


1065 


01701 


1016 




TAO 




NEXT 


1066 


01702 


4500 




JMS 


I 


OOUTMRO 


1067 


01703 


1333 




TAD 




FLIMIT 


1068 


01704 


4500 




JMS 


I 


QOUTMRD 


1069 


01705 


1067 




TAD 




FINOEX 


1070 


01706 


1367 




TAD 




(FSTA 


1071 


01707 


4500 




JMS 


I 


OOUTWRO 


1072 


01710 


1067 




TAD 




FINDEX 


1073 


01711 


4521 




JMS 


I 


gPUSH 


1074 


01712 


1334 




TAO 




FSTEP 


1075 


01713 


4521 




JMS 


I 


QPUSH 


1076 


01714 


1260 




TAD 




FORFLD 


1077 


01715 


4521 




JMS 


I 


QPUSH 


1076 


01716 


1016 




TAD 




NEXT 


1079 


01717 


4521 




JMS 


I 


QPUSH 


1080 


01720 


2016 




ISZ 




NEXT 


1081 


01721 


1033 




TAO 




TMPCNT 


1062 


01722 


3034 




OCA 




TMPLVL 


1083 


01723 


4532 




JMS 


I 


QNOREGS 


1084 


01724 


101!) 




TAO 




STACK 


1085 


01725 


3066 




DCA 




STKLVL 


1086 


01726 


5510 




JMP 


1 


QREMARK 


1087 


01727 


1366 


STEP!, 


TAO 




(3 


1088 


01730 


3334 




DCA 




FSTEP 


1089 


01731 


136b 




TAD 




(JGT 


1090 


01732 


5243 




JMP 




SAVEJF 


1091 


01733 


0000 


FLIMIT, 









1092 


01734 


0000 


FSTEPr 









1093 


01735 


0000 


FORNC, 









1094 


01736 


000kl 


FORCP, 









1095 


01737 


7654 


WTHEN, 


-124»»110»-105|. 


1096 


01740 


7670 










1097 


01741 


7673 










1098 


01742 


7662 











PALB-V8 10/30/72 PAGE 15-1 
/CHECH FOR ROOM 
/SAVE FIELD OF LABELS 



/SET LABEL DEFINED BIT 
/DEFINE THE LOOP LABEL 



/SET LABEL DEFINED HIT 
/FOR END OF LOOP LABEL 

/TEST FOR DONE 

/8Y SUBTRACTING THE LIMIT 

/OUTPUT JUMP TO DONt 

/SHIFT FIELD BITS 
/USE PROPER JUMP INS 

/OUTPUT LOW PART OF JMP 

/FADD FLIMIT (FADOaB) 

/FSTA INDEX 

/PUT STUFF ONTO STACK 



/BUMP NEXT AGAIN 
/RESERVE THESE TEMPS 

/FORGET RESISTORS 
/SET NEW STACK LEVEL 



/1,0 IS SLOT #3 

/USE JGT 

/GO DO THE REST 

/FOR LOOP UPPER LIMIT 

/FOR LOOP STEP 

/FOR STMT CHAR POSITION 

'116 



/OS/8 BASIC COMPIUEH PAL8-V8 10/30/72 PAGE l5-<; 

1099 01743 0400 XSliBf FSUBJAFSUB 

1100 01744 bSZa 



/OS/8 BASIC COMPILEH 
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1101 






1102 


01745 


1364 


1103 


0174b 


450U 


110« 


01747 


4514 


1105 


01750 


5354 


1106 


01751 


1026 


1107 


01752 


7700 


110B 


01753 


5356 


1109 


01754 


4473 


1110 


01755 


2525 


nil 


01756 


7132 


1112 


01T57 


3026 


1113 


01760 


4516 


1114 


01761 


1027 


1115 


01762 


4500 


1116 


01763 


5510 



/ USE PROCESSOR 



USEX. 



USEERR) 



TAD 

JMS I 

JKIS I 

JMP 

TAD 

SMA CLA 

JMP 

JMS I 

2525 

CLL CML «TR 

OCA 

JMS I 



TAD 
JMS I 
JMP I 



(USE /OUTPUT USE OPERATOR 

QOUTWRD 

QGETNAM /GET ARRAY NAME 

USEERR /ERROR 

TYPE /CHECK TYPE 

/(MUST BE NUMERIC) 
,♦3 /IT WAS 
OERMSG /ERROR IN USE STMT 



/SET DIM dIT 
TYPE 

OlOOKUP /LOOKUP SYMBOL 
SYMBOL /OUTPUT ARRAY NUMBER 
aOUTWHD 
QREMARK 



/DS/8 BASIC COMPKEH 



PALB-V8 10/30/72 PAGE U 



1117 






/ IF AN 


D IFENO 


PKOCESSO 


RS 






1118 


01764 


7540 










1119 


01765 


5004 










1120 


01766 


0003 










1121 


01767 


2400 










1122 


01770 


0070 










1123 


01771 


226b 










112a 


01772 


2317 










1125 


01773 


3314 










1126 


01774 


5010 










1127 


01775 


7401 










1128 


01776 


3326 










1129 


01777 


3323 










1130 




2000 




PAGE 




/OUTPUT STMT NUMBER ( 


1131 


02000 


4474 


IF, 


JMS I 


QLOOSN 


1132 


02001 


4505 




JMS I 


QEXPR 


/GET LEFT EXPRESSION 




1133 


02002 


5510 




JMP I 


□REMARK 






ll3tt 


02003 


4502 




JMS I 


QGETC 


/GET RELATIONAL OPERATOR 




1135 


02004 


5262 




JMP 


aAOIF 


/ERROR IF NONE 




1136 


02005 


7106 




CLL RTL 








1137 


02006 


7006 




RTU 




/MOVE TO LEFT HALF 




1136 


02007 


7006 




RTL 








1139 


02010 


3021 




OCA 


TEMP 


/AND SAVE IT 




1140 


02011 


4502 




JMS I 


QGETC 


/GET 2 CHAR RELATI0NAL5 




1141 


02012 


5262 




JMP 


BADIF 






1142 


02013 


1021 




TAO 


TEMP 


/COMBINE THE 2 


1143 


02014 


3022 




DCA 


TEMP2 




1144 


02015 


1377 




TAO 


(IF0P5- 


1/SETUP POINTER 


1145 


02016 


3010 




DCA 


X10 




1146 


02017 


I4ia 


IFUUPl, 


TAD I 


X10 


/GET JUMP OPCODE 


1147 


02020 


7450 




SNA 






1148 


02021 


5271 




JMP 


IFLUP2- 


1/NOT A 2 CHAR RELATIONAL 


1149 


02022 


3311 




DCA 


HELOPR 


/SAVE IT 


1150 


02023 


1410 




TAD I 


X10 


/COMPARE CHARS 


1151 


02024 


1022 




TAO 


TEMP2 


i 




1152 


02025 


7640 




SZA CLA 








1153 


02026 


5217 




JMP 


IFLUPl 


/NOT THIS DOE 




1154 


02027 


4505 


GOTKEL, 


JMS I 


QEXPR 


/GET RIGHT HALF 




1155 


02030 


5510 




JMP I 


QRtMARK 






1156 


02031 


7e40 




CLA CMA 




/GET TYPE OF RIGHT SIDE 




1157 


02032 


1014 




TAD 


OSTACK 






1158 


02033 


3021 




OCA 


TEMP 






1159 


02034 


1421 




TAD I 


TEMP 






1160 


02035 


7710 




SPA CLA 








1161 


02036 


5265 




JMP 


STRCMP 


/STRING, 00 STRING COMPARE 


1162 


02037 


1376 




TAD 


(MINUS 


/NUMERIC, DO A SUBTRACT 1 


1163 


02040 


4506 




JMS I 


QOUTOPR 


1 


1164 


02041 


4501 


NUMCMP, 


JMS I 


QSAveCP 


/SAVE CHAR POSITION,* ^ 1 


1165 


02042 


4475 




JMS I 


QCHKWD 


/LOOK FOR "THEN" T 1 


1166 


02043 


1737 




WTHEN 






1167 


02044 


5255 




JMP 


NOTHEN 


/NOT THEN 


1168 


02045 


4477 


GETIFN, 


JMS I 


QSNUM 


/GET STATEMENT NUMBER 


1169 

1170 


02046 
02047 


5366 
1021 




JMP 
TAO 


BA0G02 
TEMP 


^ 




/OUTPUT JUMP 


1171 


02050 


1311 




TAO 


RELOPR 









^^ 






\l 



# 



# 



# 



/OS/8 


BASIC COMPILE^ 


i 
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1172 


02051 


4500 




JMS 


I 


OOUTi«IHD 




1173 


02052 


1022 




TAD 




TEMP2 


/TWO WORDS \ 


1174 


02053 


4500 




JMS 


I 


QOUTWRD 


\ 


1175 


02054 


5507 




JMP 


I 


QNEWLIN 


A^^^^ 


1176 


02055 


4504 


NOTHEN, 


JMS 


1 


OHESTCP 


/BACKUP CHAR POSJR; 


1177 


020S6 


4475 




JMS 


1 


OCHKWD 


/LOOK FOR "GOTO" ^ 


1178 


02057 


6271 




W60T0 






1179 


02060 


7410 




SKP 








1180 


02061 


5245 




JMP 




GETIFN 


/OK, GO GET STMT NUMBER 


1181 


02062 


4473 


BADIF, 


JMS 


I 


QERMSG 


/BAD IF STMT 


1182 


02063 


1106 




1106 








1103 


02064 


5510 




JMP 


I 


OREMANK 




1184 


02065 


1375 


STRCMP, 


TAD 




(SCOMPR. 


•1 


11S5 


02066 


4506 




JMS 


1 


QOUTOPR 


/OUTPUT STRING COMPARE 


llSb 


02067 


4476 




JMS 


I 


QMOOSET 


/BACK TO N MODE 


1187 


02070 


5241 




JMP 




NUMCMP 


/REST IS LIKE NUMERIC COMPARES 


US8 


02071 


4525 




JMS 


I 


QBACKl 


/PUT BACK NON OPERATOR 


1189 


02072 


1410 


1FLUP2, 


TAO 


I 


X10 


/GET CONDITIONAL JUMP 


1190 


02073 


7450 




SNA 








1191 


02074 


5262 




JMP 




BADIF 


/RELATIONAL INCORRECT 


1192 


02075 


3311 




DCA 




RELOPR 




1193 


02076 


1410 




TAO 


I 


1(10 


/COMPARE OPERATORS 


1194 


02077 


1021 




TAO 




TEMP 




1195 


02100 


7650 




SNA 


CLA 






1196 


02101 


5227 




JMP 




GOTREL 


/GOTIT 


1197 


02102 


5272 




JMP 




IFLUP2 




1198 


02103 


4474 


IFENO, 


JMS 


1 


QLODSN 


/OUTPUT STMT NUMBER 


1199 


02104 


7201 




CUA 


lAC 




/(NO COLON) 


120G9 


02105 


4311 




JMS 




GETFN 


/GET FILE NUMBER 


1201 


02106 


1374 




TAO 




CJEOF 


/SETUP CORRECT JUMP 


1202 


02107 


33U 




DCA 




RELOPR 




1203 


02110 


5241 




JMP 




NUMCMP 


/GO FIND "THEN" OR "GOTO" 


1204 






RELOPP. 










1205 


02111 


0000 


GETFN, 









/GET FILE NUMBER 


1206 


02112 


3062 




OCA 




COLON 


/SAVE COLON SWITCH 


1207 


02113 


4513 




JMS 


I 


QCHECKC 


/LOOK FOR # 


1208 


02114 


7735 




-43 








1209 


02115 


5340 




JMP 




TTYFIL 


/NONE, MUST BE TTY 


1210 


02116 


4505 




JMS 


I 


QEXPR 


/GET FILE EXPR 


1211 


02117 


5510 




JMP 


I 


QREMARK 


/ERROR 


1212 


02120 


1062 




TAD 




COLON 


/OO WE NEED A COLON ? 


1213 


02121 


7640 




SZA 


CLA 






1214 


02122 


5326 




JMP 




.♦4 


/NO, SKIP THIS TEST 


1215 


02123 


4513 




JMS 


I 


QCHECKC 


/YES, LOOK FOR IT 


1216 


02124 


7706 




-72 








1217 


02125 


5331 




JMP 




BADFN 


/NOT THERE, BAD 


1218 


02126 


4520 




JMS 


I 


QLOAD 


/LOAD IT 


1219 


02127 


1056 




TAO 




TYPEl 


/TYPE MUST BE NUMERIC 


1220 


02130 


7710 




SPA 


CLA 






1221 


02131 


4473 


BADFN, 


JMS 


1 


OERMSG 


/NOPE, IT ISN'T 


1222 


02132 


0616 




0616 






1223 


02133 


7201 




CLA 


lAC 




/SET IFNREG TO "NOT TTY" 


1224 


02134 


3063 




OCA 




IFNREG 


/SAVE NEW IFNREG 


1225 


02135 


1373 




TAO 




(FILENO 


/OUTPUT SET IFN COMMAND 


1226 


02136 


4500 




JMS 


I 


QOUTWRD 





^!^ 



/OS/8 BA31C COMPILES PAL8-V8 10/30/72 PAGE 17-^ 

1827 02137 5711 JMP I GETFN 

1228 02140 1063 TTYFIUi TAD IFNREG /IS IFNREG 13 ? 

1229 02141 765i9 SNA CUA 

1230 02142 5711 JMP I GETFN /IF YES, QUIT 

1231 02143 1372 TAD CCURFN /OTHERWISE ZERO AC 

1232 02144 4S00 JMS I QOUTWRD 

1233 02145 3063 DCA IFNREG /SET IFNREG TO TfV 

1234 02146 5711 JMP I GETFN /RETURN 




# 



• 



/08/a 


BASIC COMPILEK 




PALfl-Vfl 


10/30/72 PAGE 16 


ia35 






/ GOTO 


AND G0SU5 




1236 


02147 


4477 


GOTO, 


JMS 


I 


QSNUM 


/GET NUMBER 


1237 


02150 


5366 




JMP 




aADG02 




1238 


02151 


4476 




JMS 


I 


QMODSET 


/ALL GOTO'S IN NMOOt 


1239 


02152 


7201 




CLA 


lAC 




/JUMP»JSUB*l 


1240 


02153 


5360 




JMP 




,♦5 




1241 


02154 


4474 


GOSUB, 


JMS 


I 


QLOOSN 


/OUTPUT STMT NUM LOAO 


1242 


02155 


4477 




JMS 


I 


OSNUM 


/GET NUMBER 


1243 


0215b 


5366 




JMP 




BAD602 




1244 


02157 


4476 




JMS 


I 


QMODSET 


/ALL GOTO'S IN NMDDE 


1245 


02160 


1371 




TAD 




tJSUB 


/GET G0SU8 OPCODE 


1246 


02161 


1021 




TAO 




TEMP 


/PLUS ADDRESS 


1247 


02162 


4500 




JMS 


I 


OOUTMKO 


/OUTPUT IT 


1246 


02163 


1022 




TAD 




TEMP2 


/BOTH WORDS 


1249 


02164 


4500 




JMS 


I 


OOUTMRD 




1250 


02165 


5507 




JMP 


I 


QNEWtIN 




1251 


02166 


a47i 


BADG02i 


JMS 


I 


QERMSG 


/BAD GOTO Oi? GOSUB 


1252 


02167 


1615 




1615 




/NUMBER MISSING 


1253 


02170 


5510 




JMP 


I 


QREMARK 





m 
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1254 






/ TABLE 


SEARCH 


FOK LIT 


1255 


02171 


5000 








1256 


02172 


7501 








1257 


02173 


7402 








1258 


02174 


5400 








1259 


02175 


6566 








1260 


02176 


2755 








1261 


02177 


4140 








1262 




2200 




PAGE 




1263 


02200 


0000 


LUKUP2, 







1264 


02201 


1600 




TAD I 


LUKUP2 


1265 


02202 


3342 




OCA 


0L0N3 


1266 


02203 


2200 




ISZ 


LUKUP2 


1267 


02204 


1600 




TAD I 


LUKUP2 


1268 


02205 


2200 




ISZ 


LUKUP2 


1269 


02206 


3346 




OCA 


N3SIZE 


1270 


02207 


1377 




TAD 


(6211 


1271 


02210 


3071 




OCA 


LUFLO 


1272 


02211 


4070 




JMS 


SETFLD 


1273 


02212 


1742 


L00K2, 


TAD I 


0LDN3 


1274 
1275 


02213 
02214 


3343 
2342 


PATCHl, 


OCA 


NEMN3 


lot 


-yfctjws— 


1276 


02215 


1742 




TAD I 


0LDN3 


1277 


02216 


3233 




DCA 


NEWFLD 


1278 


02217 


1343 


--1*7 AD- 


NEWN.3 


1279 


02220 


7450 


T 


SNA 




1280 


02221 


5257 




JMP 


HOOKIN 


1281 


02222 


7001 


PATCH5, 


lAC 




1282 


02223 


3010 




DCA 


X10 


1283 


02224 


1376 




TAD 


tWOROl 


1284 


02225 


3011 




DCA 


Xll 


1285 


02226 


1346 




TAD 


N3SIZt 


1286 


02227 


3344 




DCA 


LTEMP 


1287 


02230 


6201 


CHKVALf 


CDF 




1288 


02231 


1411 




TAD I 


Xll 


1289 


02232 


7141 




CIA Cll 




1290 


02233 


6211 


NEWFLD* 


COF 


10 


1291 


02234 


1410 




TAD I 


X10 


1292 


02235 


7640 




5ZA CLA 




1293 


02236 


5250 




JMP 


NOTSAM 


1294 


02237 


2344 




ISZ 


LTEMP 


1295 


02240 


5230 




JMP 


CHKVAL 


1296 


02241 


1410 




TAD I 


X10 


1297 


02242 


6201 


16201, 


CDF 




1298 


02243 


3027 




DCA 


SYMBOL 


1299 


02244 


1233 




TAD 


NEWFLD 


1300 


02245 


3071 




DCA 


LUFLD 


1301 


02246 


2200 




ISZ 


LIJKUP2 


1302 


02247 


5600 




JMP I 


LUKUP2 


1303 


02250 


7430 


NDTSAM, 


SZL 




1304 


02251 


5257 




JMP 


HOOKIN 


1305 


02252 


1343 




TAD 


NEMN3 


1306 


022S3 


3342 




DCA 


0L0N3 


1307 


02254 


1233 




TAD 


NEWFLD 


1308 


02255 


3071 




OCA 


LUFLO 



C/S 



/GET THE BUCKET START 

/SAVE IT AS THE PREVIOUS ENTRY 

/GET THE ENTRY SIZE 



/PRIME THE FIELD SETTER 

/NOW SET THE FIELD 
/GET ADUR OF NEXT ENTRY 
/SAVE IT 
'■-/«tr' Ttf-I^I E L D -OF ^k*Ji4.-feWWJ^ y , 
/GET INTO AC 
/AND SAVE IT 



,/}p , 4 3 



/IF ITS END OF LIST 

/START OF VALUE INFO 
•1/SETUP POINTER TO VALUE 

/AND TEMP OF ENTRY SIZE 



/COMPARE THIS WORD 
/FIELD OF NEW ENTRY 



/NOT THIS ONE 
/IMCR SIZE COUNT 
/MORE STUFF 
/GET SYMBOL NUMBER 



/MAKE ENTRY ADORESSASLE 
/THROUGH SETFLD 
/8UMP RETURN 



/NEW SYMBOL < CURRENT 
/GO TO NEXT ENTRY 
/(MOVE POINTER) 
/(AND FIELD) 



^ 



^/9P 
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1309 
1310 
1311 
1312 
1313 

I3ia 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 



02256 

02257 

02260 

02261 

02262 

02263 

02264 

02265 

02266 

02267 

02270 

02271 

02272 

02273 

02274 

02275 

02276 

02277 

02300 

02301 

02302 

02303 

02304 

02305 

02306 

02307 

02310 

02311 

02312 

02313 

02314 

02315 

02316 

02317 

02320 

02321 

02322 

02323 

02334 

02325 

02326 

02327 

02330 

02331 

02332 

02333 

02334 

02335 

02336 

02337 

02340 

02341 

02342 

02343 

02344 



5212 
7144 
1346 
1375 
3264 
4317 
0000 
1343 
6211 
3416 
1233 
3416 
4070 
1266 
3742 
7240 
1342 
3342 
7240 
1016 
3742 
1266 
3071 
1376 
3011 
6201 
1411 
6211 
3416 
2346 
5307 
6201 
5600 
0000 
1016 
7141 
6201 
1717 
2317 
7630 
5717 
1266 
1374 
3266 
1266 
3311 
3016 
2345 
5717 
4473 
2324 
5406 
0000 
0000 
0000 



JMP L00K2 

HOOKIN, CLL CMA KAL 

TAD N38IZE 

TAD (EQ8T 

OCA ,42 

JMS STCHEK 



TAD NEWN3 

FREFLO, COF 10 

OCA 1 NEXT 

PATCH2, TAD NEWFUD 

DCA I NEXT 

JMS SETFLD 

TAD FREFLO 

OCA I 0I.DN3 

CLA CMA 

TAD QLDN3 

OCA 0LDN3 

CLA CMA 

,*^A0 NEXT 

OCA I 0L0N3 

TAD FREFLO 

DCA LUFLD 

TAD CWORDl- 

DCA XU 

ENTERV, CDF 

TAD I Xll 

FPLD2, COF 10 

UCA I NEXT 

ISZ N3SIZE 

JMP ENTERV 

COF 

JMP I L.UKUP2 

STCHEK, 

TAD NEXT 

CIA CLL 

CDF 

TAD I STCHEK 

ISZ STCHEK 

SZL CLA 

JMP I STCHEK 

TAO FREFLO 

TAD (10 

DCA FREFLO 

TAD FREFLO 

DCA FFLD2 

OCA NEXT 

ISZ NFLOS 

JMP I STCHEK 

STOVER, JMS I QERMSG 
2324 

XABQRT 



/MOW MANY nilOROS NEEDED 1 



/MAKE SURE 
/WE GOT ENOUGH 
/HOOK IN NEW ENTRY 
/CHANGE TO FREE FIELD 



/HOOK IN FIELD " -"/ 

/BACK TO FIELD OF OLD 
/PUT FIELU OF NEW 



,,4-!f 



/BACK UP 0L0N3 

/SO THAT IT POINTS TO POINTER 



/PUT POINTER TO NEW ENTRY 
/INTO OLD 
/SAVE ENTRY FIELD 
/FOR POSSIBLE POST PROCESSING 
1/PREPARE TO STICK IN THE VALUE 



0LDN3, 
NEWN3, 
LTEMP, 



JMP I 







/MOVE IN THE VALUE 



/INCR SIZE COUNT 



/CHECK FOR ENOUGH ROOM 
/CHECK FOR OVERFLOW 



/THIS IS LIMIT 



/BUMP FREE FIELD 



/PUT IN TWO PLACES 

/START POINTER AT 

/GONE TOO FAR ? 

/NO 

/S.T. FULL 

/ABORT COMPILATION 
/ADDR OF PREVIOUS ENTRY 
/4D0R OF NEW ENTRY 
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1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 



02345 0000 



02346 
02347 
02350 
02351 
02352 
02353 
02354 
02355 
02356 
02357 
02360 
02361 
02362 



0000 

6031 

5746 

6036 

0373 

1372 

7450 

5406 

1371 

7640 

5746 

3770" 

5746 



NFLOS, 

N3SIZE, 
K9DCHK, 





(9 

KSF 

JMP 

KRB 

AND 

TAD 

SNA 

JMP 

TAD 

SZA 

JMP 

OCA 

JMP 



/- COUNT OF AVAILABUF. FIELDS 
/SIZE OF ENTRY 
/CHECK FOR *C Ort "0 



I KaOCHK /NO CHAR 



CUA 
I 



(177 
(-3 

XABORT 
(3-17 

K80CHK 

TTX*1 

KBDCHK 



/REMOVE 
/-C ?? 



PARITY dIT 



/YES, EXIT 
/-O ?? 



TO 0S8 



/NO, 
/NOP 



RETURN 
TTY OUTPUT 



ROUTINE 
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1379 






/ SYMBOL TABLE 


LOOKUP 




1380 


02370 


3741 










1391 


02371 


7764 










1382 


02372 


7775 










1383 


02373 


0177 










1384 


02374 


0010 










1385 


02375 


7570 










1386 


02376 


0133 










1387 


02377 


6211 










1388 




2400 




PAGE 






1389 


02400 


0000 


LOOKUP, 







/LOOK UP SYMBOL 


1390 


02401 


1134 




TAD 


NAMEl 


/GET NAME1*11*NAME2 


1391 


02402 


7106 




CLL RTU 






1392 


02403 


1134 




TAO 


NAMEl 




1393 


02404 


7104 




CLL RAL 






1394 


02405 


1134 




TAD 


NAMEl 




1395 


02406 


1135 




TAD 


NAME2 




1396 


02407 


3134 




DCA 


NAMEl 


/THIS IS IT 


1397 


02410 


1026 




TAD 


TYPE 


/WHAT KIND SYMBOL ? 


1398 


02411 


7106 




CLL RTL 




/MOVE TYPE BITS 


1399 


02412 


7006 




RTL 




/INTO AC 9,10,11 


1400 


02413 


1216 




TAD 


JTABLE 




1401 


02414 


3215 




OCA 


.*l 




1402 


02415 


0000 


VCPTR, 







/GO THERE 


1403 


02416 


5617 


JTABLE, 


JMP I 


.♦I 




1404 


02417 


2427 




LUVAR 






1405 


02420 


2451 




LURETN 






1406 


02421 


2463 




LUARAY 






1407 


02422 


2451 




LURETN 






1408 


02423 


2456 




LUSTRG 






1409 


02424 


2451 




LURETN 






1410 


02425 


2516 




LUSARY 






1411 


02426 


2451 




LURETN 






1412 


02427 


1377 


LUVAH, 


TAD 


(VARCNT 


/POINTER TO VAR COUNT 


1413 


02430 


3215 




DCA 


VCPTR 




1414 


02431 


1376 




TAO 


(VARST- 


13 


1415 


02432 


1134 


DOLU> 


TAD 


NAMEl 




1416 


02433 


3037 




DCA 


STPTR 


/ST POINTER 


1417 


02434 


6211 




CDF 


10 


/THATS KiHERE ST IS 


1418 


02435 


1437 




TAO I 


STPTR 


/IS THIS VAR DEFINED YET 7 


1419 


02436 


7500 




SMA 






1420 


02437 


5253 




JMP 


GOTSYM 


/YES 


1421 


02440 


1375 




TAD 


(4401 


/GET 401 INTO AC 


1422 


02441 


6201 


CHEKST, 


CDF 






1423 


02442 


1615 




TAD I 


VCPTR 


/PLUS VAR COUNT 


1424 


02443 


6211 




COF 


10 




1425 


02444 


3027 




OCA 


SYMBOL 


/THATS THE NEW SYMBOL NUMB 


1426 


02445 


1027 




TAD 


SYMBOL 


/PUT SYMBOL NUMBER 


1427 


02446 


3437 




OCA I 


STPTR 


/INTO S.T, ENTRY 


1428 


02447 


6201 




CDF 






1429 


02450 


2615 




ISZ I 


VCPTR 


/BUMP SYMBOL NUMBER 


1430 


02451 


5600 


LURETN, 


JMP I 


LOOKUP 




1431 


02452 


5774' 




JMP 


STOVEH 


/S,T, OVERFLOW 


1432 


02453 


3027 


SOTSVM, 


OCA 


SYMBOL 


/PUT NUMBER INTO SYMBOL 


1433 


02454 


6201 




COF 
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IttSa 02455 S6ei(t) JMP I 

ia35 0S45b 1373 LUSTRG, TAD 

1436 02457 3215 DCA 

1437 02460 1372 TAO 
1436 02461 1134 TAO 

1439 02462 5232 JMP 

1440 02463 1371 LgAHAY, TAD 

1441 02464 3215 DCA 

1442 02465 1370 TAD 

1443 02466 3037 DCA 

1444 02467 6211 CDF 

1445 02470 1437 FINDA, TAD I 

1446 02471 7450 SNA 

1447 02472 5311 JMP 
1446 02473 7041 CIA 

1449 02474 1134 TAD 

1450 02475 2037 ISZ 

1451 02476 7650 SNA CLA 

1452 02477 5304 JMP 

1453 02500 2037 ISZ 

1454 02501 2037 ISZ 

1455 02502 2037 ISZ 

1456 02503 5270 JMP 

1457 02504 1367 GOTARV, TAD 

1458 02505 0437 AND I 

1459 02506 3027 DCA 

1460 02507 6201 CDF 

1461 02510 5600 JMP I 

1462 02511 1134 NEWARY, TAO 

1463 02512 3437 OCA I 

1464 02513 2037 ISZ 

1465 02514 1373 TAO 

1466 02515 5241 JMP 

1467 02516 1366 LUSARY, TAD 

1468 02517 3215 OCA 

1469 02520 1365 TAD 

1470 02521 5266 JMP 



LOOKUP 

CSVCNT 

VCPTR 

tSVARST 

NAMEl 

DOLU 

CACNT 

VCPTR 

(ARAYST 

STPTH 

10 

STPTR 



/POINTER TO STRING VAR COUNT 



-26 



/TWO WORDS PER ENTRY 
/ARRAY VAR COUNT 
/ARRAY SYMBOL TABLE 



/SEARCH TABLE 
NEWARY /NEW ENTRY 

/IS THIS IT ? 



NAMEl 
STPTR 

GOTARY 

STPTR 

STPTR 

STPTR 

FINDA 

C37 

STPTR 

SYMBOL 

LOOKUP 

NAMEl 

STPTR 

STPTR 

C41 

CHEKST 

(SACNT 

VCPTR 

CSARYST 

FINDA-2 



/YES 

/GO TO NEXT ENTRY 
/GET NUMBER 
/INTO SYMBOL 

/PUT IN NEW ENTRY 



/PUT IN NUMBER 
/GO DO THE REST 
/STRING ARRAY COUNT 

/USE STRING ARRAY TABLE 
/GO DO SEARCH 



/D5/6 BASIC COMPILER 



1472 
1<173 

imu 

1475 
1476 
1477 
1478 
1479 
t46e 
1481 
1482 
1483 
1484 
148S 
148(> 
1467 
1486 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
149b 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 



02522 

02523 

02524 

02525 

02526 

02527 

02530 

02531 

02532 

02533 

02534 

02535 

02536 

02537 

02540 

02541 

02542 

02543 

02544 

02545 

02546 

02547 

02550 

02551 

02552 

02553 

02554 

02555 

02556 

02557 

02560 

02561 

02562 



4474 

1364 

3356 

4513 

7652 

7410 

2356 

4513 

7662 

5336 

2356 

2356 

4763' 

4505 

5510 

4520 

1056 

7710 

5347 

4473 

0616 

1756 

4500 

5507 

7454 

7474 

7514 

7534 

0000 

0040 

0000 

5162 

5162 



/ FILE 
FILE, 



F0PEN8, 



AND C 
JMS 
TAO 
OCA 
JMS 
-126 
8KP 
ISZ 
JMS 
-116 
JMP 
ISZ 
ISZ 
JMS 
JMS 
JMP 
JMS 
TAO 
SPA 
JMP 
JMS 
0616 
TAO 
JMS 
JMP 
OPEN 
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LOSE PROCESSORS 



I 



QLODSN /OUTPUT STMT NUMBER 

CFOPENS /POINTER TO FILE OPtNS 

FILESW 

QCHECKC /LOOK FOR »»/" 

/NOT V 
FiLESw /TUP, INCR FILESW 
QCHECKC /LOOK FOR "N" 



I 
I 
I 

CLA 
I 



.♦3 

FILESW 
FILESW 

5ETFN 

QEXPR 

QREMAKK 

OLOAD 

TYPEl 

,*3 

OERMSG 

FILESW 

QOUTWRD 

QNEWLIN 



/INCR FILESW BY TWO IF "N" 

/GET FILE NUMBER 

/GET OEVICE/FILE DESCRIPTOR 

/LOAD INTO SAC 
/TYPE MUST BE STRING 

/IT WERE 
/IT WEREN'T 

/GET CORRECT OPEN 



I 

I 
I 

AF>0PENAV>0P£NNF»OP£NNV 



FILESW, 

PLUS, 40f0;XADO>XADD 
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1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

iSltt 

1515 

151« 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

152tt 

1525 

1526 

1527 

1526 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1556 

1559 



02563 
02564 
02565 
02566 
02567 
02570 
02571 
02572 
02573 
02574 
02575 
02576 
02577 

02600 

02601 

02602 

02603 

02604 

02605 

02606 

02607 

02610 

02611 

02612 

02613 

02614 

02615 

02616 

02617 

02620 

02621 

02622 

02623 

02624 

02625 

02626 

02627 

02630 

02631 

02632 

02633 

02634 

02635 

02636 

02637 

02640 

02641 

02642 

02643 

02644 

02645 

02646 

02647 



2111 

2552 

2332 

0043 

0037 

2132 

0042 

1010 

0041 

2337 

4401 

0365 

0040 

2600 

0000 

3021 

1030 

4521 

1021 

3030 

1200 

4521 

4521 

1030 

7710 

5244 

4502 

5352 

1377 

7450 

5214 

1376 

7440 

5227 

1375 

4521 

5214 

1374 

7640 

5243 

4505 

5773' 

4513 

7727 

7410 

5263 

4473 

1520 

5773' 

4525 

4514 

5772' 

4516 

1027 



/ EXPRESSION ANALYZER 



PAGE 

EXPR» 

DCA 

TAO 

JMS I 

TAO 

DCA 

TAD 

JMS I 

JMS I 

TAD 

SPA CLA 

JMP 
UNOPR, JMS I 

JMP 

TAD 

SNA 

JMP 

TAD 

SZA 

JMP 

TAD 

JMS I 

JMP 
M0TMIN» TAD 

SZA CLA 

JMP 

JMS I 

JMP 

JMS 1 

-51 

SKP 

JMP 

JMS I 

1520 

JMP 
OPRAND, JMS I 

JMS 1 

JMP 

JMS I 

TAD 



TEMP 

LEFT 

QPUSH 

TEMP 

LEFT 

EXPR 

QPUSH 

QPUSH 

LEFT 



/POLISHIZE EXPRESSION 

/SAVE LEFT 

/SO WE CAN PUSH OLD VALUE 

/OF IT 

/NOW SET NEiN VALUE 

/OF THAT SWITCH 

/SAVE RETURN ADOR 

/MARK STACK 

/IS THIS LEFT SIDE ? 



OPRAND+1/YES, NO UNARY MINUS 
QGETC /LOOK FOR UNARY OPERATOR 
MISARG /THERE HAS TO BE AN OPERAND 
C-53 /UNARY+CNOP) 

UNOPR 

(53-55 /UNARY - 



NOTMIN 

(UMOPR 

QPUSH 

UNOPR 

(55-50 



/NOT UNARY MINUS 
/PUSH UNARY MINUS 



/LOOK FOR ( 



OPRAND /NOT A SUB EXPRESSION 

QEXPB /COMPILE SUB EXPRESSION 

BADEXP /BAD SU8 EXPRESSION 

QCHECKC /LOOK FOR ) 

/ERROR 
0PR8R /GOTIT 
OERMSG /PARENTHESIS MIS MATCH 

BADEXP 

QBACKl /PUT BACK NQM UNARY OP 

OGETNAM /LOOK FOR WARlAriLt REF 

NOTVAR /NOPE, 

QLOOKUP /SYMBOL TABLE SEARCH 

SYMBOL /SAVE SYMBOL NUMBER 



. /OS/8 BASIC COMPILER 
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1560 


02650 


3022 


1561 


02651 


4524 


1562 


02652 


7775 


1563 


02653 


1026 


156tt 


02654 


0371 


1565 


02655 


7440 


1566 


02656 


5771' 


156T 


02657 


1026 


1568 


02660 


4523 


1569 


02661 


1022 


1570 


02662 


4523 


1571 


02663 


1030 


1572 


02664 


7700 


1573 


02665 


4502 


157« 


02666 


5341 


1575 


02667 


1370 


1576 


02670 


7440 


1577 


02671 


5301 


1578 


02672 


4502 


1579 


02673 


5301 


1580 


02674 


1370 


1581 


02675 


7650 


1582 


02676 


1367 


1583 


02677 


7450 


1S8<I 


02700 


4525 


1585 


02701 


1366 


1586 


02702 


3021 


1587 


02703 


1365 


1588 


02704 


3010 


1589 


02705 


1410 


1590 


02706 


7450 


1591 


02707 


5336 


1592 


02710 


3032 


1593 


02711 


1410 


1594 


02712 


1021 


1595 


02713 


7640 


1596 


02714 


5305 


1597 


02715 


4522 


1598 


02716 


7450 


1599 


02717 


5337 


1600 


02720 


3031 


1601 


02721 


1431 


1602 


02722 


7041 


1603 


02723 


1432 


1604 


02724 


7750 


1605 


02725 


5333 


1606 


02726 


1031 


1607 


02727 


4521 


1608 


02730 


1032 


1609 


02731 


4521 


1610 


02732 


5214 


1611 


02733 


1031 


1612 


02734 


4506 


1613 


02735 


5315 


1614 


02736 


4525 



0PR8R, 



NOSTAR, 



OPRLUP, 



GOTOPM^ 



PUSH2, 



QUTOLOi 



OCA 
JMS I 
-3 

TAO 
AND 
SZA 

JMP 

TAO 

JMS I 

TAD 

JMS I 

TAD 

SMA CLA 

JMS I 

JMP 

TAO 

SZA 

JMP 

JMS I 

JMP 

TAO 

SNA CLA 

TAD 

SNA 

JMS I 

TAD 

OCA 

TAD 

OCA 

TAD I 

SNA 

JMP 

OCA 

TAO I 

TAD 

SZA CLA 
JMP 
JMS I 
SNA 
JMP 
OCA 
TAO I 
CIA 
TAD I 
SPA SNA 
JMP 
TAD 
JMS 1 
TAO 
JMS I 
JMP 
TAD 
JMS I 
JMP 
JMS I 



TEMP2 /BECAUSE SAVAC MIGHT KILL IT 
QSAVAC /GENERATE FSTA (MAYbE) 



TYPE 

(3000 

FUNSS 

TYPE 

QPUSMO 

TEMP2 

QPUSHO 

LEFT 

06ETC 

ENOEXP 

(-52 

NOSTAR 
QGETC 
NOSTAR 
(-52 



/WAS THIS A FUNCTION OR ARRAY ? 



/YES, GO PROCESS IT 
/MAKE OPEHANO STACK ENTRY 

/FIRST TYPE THEN SYMBOL * 

/LEFT SIDE ? 

/YES, NO OPERATORS LEGAL 

/LOOK FOR OPERATOR 

/END OF EXPR 

/** IS SPECIAL CASE 

/NOT * 

/LOOK FOR SECOND * 



(136-52 /•• '> - 

QBACKl /PUT IT BACK 

(52 /RESTORE CHAR 

TEMP 

(0PR8RS-1 

X10 /PTR TO LIST 

X10 /GET OPERATOR PTR 

EN0EXP-3/END OF LIST 
NEWOP /SAVE IT IN CASE 
/COMPARE 



X10 
TEMP 

OPRLUP 
QPOP 

PU8H2 
OLDOP 
OLOOP 

NEWOP 

CLA 

OUTOLO 

OLOOP 

QPUSH 

NEWOP 

QPUSH 

UNOPR 

OLDOP 

QOUTOPR 

GOTOPR 

QBACKl 



/KEEP LOOKING 
/GET STACK TOP 

/EMPTY 

/COMPARE PREC, 

/NEW-OLD 

/OLD>NEW 

/OLD < NEW 
/GO PUSH BOTH 

/GO LOOK FOR NEXT OPERAND 
/OUTPUT CODE FOR OLD 0PH8H 

/LOOK AT NEXT TOP OF STACK 
/PUT BACK NQN OPERATOR 



/OS/8 BASIC COMPILER 
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1615 


02737 


7410 


1616 


02740 


4506 


1617 


02741 


4522 


1618 


02742 


7440 


1619 


02743 


5340 


1620 


02744 


4522 


1621 


02745 


7001 


1622 


02746 


3021 


1623 


02747 


4522 


1624 


02750 


3030 


1625 


02751 


5421 


1626 


02752 


4473 


1627 


02753 


1517 


1628 


02754 


5773' 


1629 


02755 


0040 


1630 


02756 


0000 


1631 


02757 


3763 


1632 


02760 


1743 


1633 


02761 


0050 


1634 


02762 


0000 


1635 


02763 


5557 


1636 


02764 


6756 



ENDEXP, 



MISARGi 



SKP 
JMS I 
JM5 1 
SZA 
JMP 
JMS I 
lAC 
OCA 
JMS I 
DCA 
JMP I 
JMS I 
1517 
JMP 



QOUTOPR /OUTPUT OPESATOR 
QPOP /LOOK FOR STACK MARK 

ENOEXP-l/NOT THIS 



QPOP 

TEMP 
QPOP 
LEFT 

TEMP 
QERMSG 

BAOEXP 



/GET RETURN ADDR 



/GET LEFT SIDE SWITCH 

/RETURN 
/MISSING OPERAND 



MINUS, 40I0MISUB)XSUB 



SLASH, 50»0>XIOIV>XDIV 



/OS/8 BASIC COMPIUEH 



1637 






1638 


02765 


6047 


1639 


02766 


0052 


1640 


02767 


0064 


16*1 


02770 


7726 


164S 


02771 


3000 


1643 


02772 


3136 


1604 


02773 


3122 


1645 


02774 


0005 


1646 


B2775 


076S 


1647 


02776 


7776 


1648 


02777 


7725 


1649 




3000 


1650 


03000 


0377 


1651 


03001 


7650 


1652 


03002 


5205 


1653 


03003 


4524 


1654 


03004 


7777 


1655 


03005 


1026 


1656 


03006 


4521 


1637 


03007 


1022 


1658 


03010 


4521 


1659 


03011 


1037 


1660 


03012 


4521 


1661 


03013 


7410 


1662 


03014 


4522 


1663 


03015 


7001 


1664 


03016 


4521 


1665 


03017 


4505 


1666 


03020 


5315 


1667 


03021 


4511 


1668 


03022 


7132 


1669 


03023 


0056 


1670 


03024 


7650 


1671 


03025 


5242 


1672 


03026 


4512 


1673 


03027 


4524 


1674 


03030 


7777 


1675 


03031 


1056 


1676 


03032 


4476 


1677 


03033 


1376 


1676 


03034 


1057 


1679 


03035 


4500 


1680 


03036 


1133 


1681 


03037 


1055 


1682 


03040 


3414 


1683 


03041 


7410 


1684 


03042 


2014 


1685 


03043 


2014 


1686 


03044 


4515 


1687 


03045 


5315 


1688 


03046 


5214 


1689 


03047 


4532 


1690 


03050 


3021 


1691 


03051 


4522 



PAL8-V8 10/30/72 PAGE 2i 
/ EXPRESSION ANALYZER CHANDLE SUBSCRIPTS) 



FUNS5, 



SSUOOP, 



NOTSSD, 



PAGE 
AND 

SNA CtA 
JMP 
JMS I 
-1 
TAD 
JMS I 
TAD 
JMS I 
TAO 
JMS I 
SKP 
JMS I 
lAC 
JMS I 
JMS I 
JMP 
JMS I 

CLL CML 

AND 

SNA CIA 

JMP 

JMS I 

JMS I 

-1 

TAD 

JMS I 

TAD 

TAD 

JMS I 

TAD 

TAD 

OCA I 

SKP 

ISZ 

ISZ 

JMS I 

JMP 

JMP 

JMS I 

OCA 

JMS I 



(1000 

.*3 

OSAVAC 

TYPE 

QPUSH 

TEMP2 

QPUSH 

STPTR 

QPUSH 

OPOP 

QPUSH 

QEXPR 

BADFSS 

QGETAl 

RTR 

TYPEl 

NOTSSO 

OLOADSS 

QSAVAC 

TYPEl 

OMODSET 

CAFLOA 

3YMBL1 

QOUTWRD 

Q400 

MODE 

OSTACK 

OSTACK 

OSTACK 

OCOMARP 

BADFSS 

SSLOOP 

OPOP 

TEMP 

QPOP 



/IS IT FUN CALL 7 

/NO 

/YES, SAVE AC 

/SAVE TYPE 

/AND SYMBOL NUMBER 

/AND SYMBOL TABLE PTR 

/GET ARG/SS COUNT 

/INCREMENT IT 
/GET NEXT ARG/SS 

/IS THIS ARG(SS) AN ARRAY REF ? 

/CHECK THE TYPE 

/NOT AN ARRAY REFERENCE 
/LOAD THE SS REGS 
/SAVE AC IF NEEDED 

/SET THE MODE 

/LOAD THIS ARG/SS 



/SET THE IN-AC BIT 
/WE JUST CALLED M005ET 
/CHANGE THIS STACK ENTRY 

/FIX UP OSTACK 

/LOOK FOR , OR ) 
/NEITHER IS HAD 
/, MEANS MORE ARGS/SS 
/GET # OF ARG/SS 
/GET ARG/SS COUNT 
/RESTORE S.T. AODR 



/OS/8 BASIC COMPILER 
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1692 


03052 


3037 




DCA 




STPTR 






16«>3 


03053 


4522 




JMS 


I 


QPOP 






1694 


03054 


3027 




DCA 




SYMBOL 


/GET BACK THE SYMBOL » 




1695 


03055 


4522 




JMS 


I 


QPOP 






1696 


03056 


3026 




OCA 




TYPE 


/GET BACK THE TYPE 




1697 


03057 


1026 




TAD 




TYPE 


/IS IT AN AHRAY OR FUN REF 


? 


1698 


03060 


037 7 




AND 




(1000 






1699 


03061 


7640 




SZA 


CLA 








1700 


03062 


5775» 




JMP 




DOCALL 


/FUNCTION REFERENCE 




1701 


03063 


1021 




TAD 




TEMP 


/MOVE SS COUNT 




1702 


03064 


7112 




CLL 


RTR 




/INTO THE CORRECT 




1703 


03065 


7012 




RTR 






/FIELD 




1704 


03066 


3022 




DCA 




TEMP2 


/AND SAVE IT 




1705 


03067 


6211 




CDF 




10 






1706 


03070 


1437 




TAD 


I 


STPTR 


/ANY PREV REFERENCE ? 




1707 


03071 


0374 




AND 




(3000 






1708 


03072 


7440 




SZA 










1709 


03073 


5300 




JMP 




NOTNEW 


/YES, GO CHECK NUMBERS 




1710 


03074 


1022 




TAD 




TEMP2 


/IF NONE, PUT IN NUMBER 




1711 


03075 


1437 




TAD 


I 


STPTR 






1712 


03076 


3437 




DCA 


I 


STPTR 






1713 


03077 


5304 




JMP 




NOOK 


/THATS ALL 




1714 


03100 


7041 


NOTNEW, 


CIA 






/COMPARE NUMBER OF SS 




1715 


03101 


1022 




TAD 




TEMP2 


/WITH ANY PREVIOUS 




1716 


03102 


7640 




SZA 


CLA 








1717 


03103 


5320 




JMP 




BADFSS+3/THEY DON'T MATCH 




1718 


03104 


6201 


NDOK, 


CDF 










1719 


03105 


1026 




TAD 




TYPE 


/PUT TYPE 




1720 


03106 


1021 




TAD 




TEMP 


/AND DIM COUNT 




1721 


03107 


4523 


ONSTAK, 


JMS 


I 


OPUSHO 


/ONTO ARGUMENT STACK 




1722 


03110 


1027 




TAD 




SYMBOL 






1723 


03111 


4523 




JMS 


I 


OPUSHO 


/AND SYMBOL NUMBER 




1724 


03112 


4524 




JMS 


I 


QSAVAC 


/SAVE FIRST SS IF LEFT IN 


AC 


1725 


03113 


7773 




-5 










1726 


03114 


5773' 




JMP 




OPRBR 


/GO GET AN OPERATOR 




1727 


03115 


1372 


BAOFSS, 


TAD 




(-4 


/PURGE STACK JIJNK 




1728 


03116 


1015 




TAD 




STACK 






1729 


03117 


3015 




DCA 




STACK 






1730 


03120 


4473 




JMS 


1 


QERMSG 


/PUT ERROR MESSAGE 




1731 


03121 


2323 




2323 








1732 


03122 


4522 


BADEXP, 


JMS 




QPOP 


/LOOK FOR STACK MARK 




1733 


03123 


7640 




SZA 


CLA 








1734 


03124 


5322 




JMP 




BADEXP 


/NOT YET 




1735 


03125 


4522 




JMS 




QPOP 


/RETURN AOOR 




1736 


03126 


3021 




OCA 




TEMP 






1737 


03127 


4522 




JMS 




QPOP 


/SS LOAD SWITCH 




1738 


03130 


3030 




DCA 




LEFT 






1739 


03131 


5421 




JMP 




TEMP 


/TAKE ERROR EXIT 




1740 


03132 


7654 


MTAB, 


-124»-10U-102» 


-50 




1741 


03133 


7677 














1742 


03134 


7676 














1743 


03135 


7730 














1744 


03136 


1030 


NOTVAR, 


TAD 




LEFT 


/LEFT SIDE ? 




1745 


03137 


7710 




SPA 


CLA 








1746 


03140 


5771' 




JMP 




MISARG 


/YES, NO LITERALS LEGAL 
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1747 03141 452b JMS I QNUMBEH /LOOK FOR LITEHAL 

1748 03142 5350 JMP NOTNUM /MOT A NUMBER 

1749 03143 4517 JMS I QUUKUP2 /SEARCH LITERAL TABLE 

1750 03144 2562 LITRL 

1751 03145 777S -3 

1752 03146 4770' JMS NEWVAR /IF NEW, GIVE IT NUMBER 

1753 03147 5307 JMP ONSTAK /GO PUT IT ONTO THE STACK 

1754 03150 4527 NOTNUM, JMS I QSTRING /LOOK FOR STRING LITERAL 

1755 03151 5771* JMP MISARG /NO, MISSING ARG 

1756 03152 1134 TAD WOROl /GET -NUMBER WORDS - 1 

1757 03153 7001 lAC 

1758 03154 7170 CLL CML CMA RAH 

1759 03155 3360 DCA .♦S /FOR LOOKUP 

1760 03156 4517 JMS I QLUKUP2 /LOOK UP LITERAL 

1761 03157 2564 8LITRL 

1762 03160 0000 

1763 03161 4767' JMS NWSVAR /IF NEW, GIVE IT NUMBER 

1764 03162 7130 CLL CML RAR /SET TYPE BIT FOR STRING 

1765 03163 5307 JMP ONSTAK /PUT INFO ONTO STACK 



/OS/8 BASIC COMPItEH 
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1766 






/ EXPRESSION 


ANA 


LVZt« CI- 


17«.7 


03167 


4236 








17«.8 


03170 


4223 








1769 


03171 


2752 








1770 


03172 


7774 








1771 


03173 


2663 








1772 


03174 


3000 








1773 


03175 


320id 








177a 


03176 


6640 








1775 


03177 


1000 








1776 




3200 


PAGE 






1777 


03200 


1030 


DOCALLi TAD 




LEFT 


1778 


03201 


7700 


SMA 


CLA 




1779 


03202 


4210 


JMS 




OUTCAL 


1780 


03203 


7410 


SKP 






1781 


03204 


5777' 


JMP 




OPRBR 


1782 


03205 


4473 


JMS 


I 


QERMSG 


1783 


03206 


0622 


0622 






1784 


03207 


5776* 


JMP 




BAOEXP 


1785 


03210 


0000 


OUTCAU, 






1786 












1787 


03211 


1027 


TAD 




SYMBOL 


1788 


03212 


3336 


DCA 




FUNNUM 


1789 


03213 


4524 


JMS 


I 


QSAVAC 


1790 


03214 


777S 


-3 






1791 


03215 


1336 


TAO 




FUNNUM 


1792 


03216 


3134 


DCA 




WORDl 


1793 


03217 


4517 


JMS 


I 


aLUKUP2 


179a 


03220 


2570 


FUNCTIM 




1795 


03221 


7777 


• 1 






1796 


03222 


5610 


JMP 


I 


OUTCAL 


1797 


03223 


1027 


TAD 




SYMBOL 


1798 


03224 


1021 


TAO 




TEMP 


1799 


03225 


7640 


SZA 


CLA 




1800 


03226 


5610 


JMP 


I 


OUTCAL 


1801 


03227 


4520 


MOVARG, JMS 


I 


QLOAD 


1802 


03230 


4070 


JMS 




SETFLO 


1803 


03231 


1410 


TAO 


I 


X10 


1804 


03232 


6201 


CDF 






1805 


03233 


3021 


DCA 




TEMP 


1806 


03234 


7130 


CLL 


CML 


RAR 


1807 


03235 


0056 


AND 




TYPEl 


1808 


03236 


1021 


TAO 




TEMP 


1809 


03237 


7710 


SPA 


CLA 




1810 


03240 


5610 


JMP 


I 


OUTCAL 


1811 


03241 


7132 


CLL 


CML 


RTR 


1812 


03242 


0021 


AND 




TEMP 


1813 


03243 


7640 


SZA 


CL* 




1814 


03244 


5253 


JMP 




OKINAC 


1815 


03245 


1056 


TAO 




TYPEl 


1816 


03246 


4476 


JMS 


I 


QMODSET 


1817 


03247 


7150 


CLL 


CMA 


HAR 


iflia 


03250 


0021 


AND 




TEMP 


1819 


03251 


1375 


TAO 




(FSTA 


1620 


03252 


4500 


JMS 


I 


QOUTWRO 



/IS THIS LEFT SIDE 7 

/IF YES» FUN ILLEGAL 

/GENERATE CALL 

/SKIP IF ERROR 

/GO LOOK FOR OPERATOR 

/BAD FUNCTION REFERENCE 



/GENERATE FUN CALL* TYPE, 

/SYMBOL AND TEMP ARE INPUTS 

/SAVE FUNCTION NUMBER AROUNO SAVAC 

/SAVE SECOND FROM TOP 

/SETUP FOR FINDING FUNCTION 

/INFO BLOCK 

/ON THE FUNCTION LIST 



/UNDEFINED FUNCTION 
/CHECK NUMBER OF ARG8 



/GET TOP OF STACK INTO AC 
/GET FIELD OF FORMAL-PABAMS 
/GET FIRST ONE 



/COMPARE TYPE OF ARG 

/WITH THAT OF FORMAL PARAMETER 

/THEY MUST MATCH 

/(THEY DON'T) 

/SHOULD WE LEAVE IT IN THE AC ? 



/YESi SAVES AN INSTRUCTION 

/SET MODE 

/APPROPRIATELY 

/3777 

/GET 5YM NUMBER 

/STORE VALUE IN FORM PARAM 



/OS/a BASIC COMPILER 
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1B21 


03253 


2027 


OKINAC, 


ISZ 




SYMBOL 


/MORE ARGS ? 


1S22 


03254 


5227 




JMP 




MOVARG 




1623 


03255 


4070 




JMS 




SETFLD 




1B24 


03256 


1410 




TAD 


I 


X10 


/GET TYPE OF FUNCTION 


1625 


03257 


3056 




OCA 




TYPEl 


/CITS RESULT THAT IS) 


1826 


03260 


6201 




CDF 








1627 


03261 


1026 




TAD 




TYPE 


/IS TYPE OF FUNCTION 


1628 


03262 


1056 




TAD 




TYPEl 


/SAME AS TYPE OF CALL 


1629 


03263 


7710 




SPA 


CLA 






1630 


03264 


5610 




JMP 


1 


OUTCAL 


/NO, ERROR 


1831 


03265 


4476 




JMS 


I 


QM0D8ET 


/ALL CALLS IN N MODE 


1832 


03266 


1134 




TAD 




MORDl 


/CHECK FOR USER FUNCTION 


1633 


03267 


7500 




SMA 








1634 


03270 


5303 




JMP 




CALLUF 


/YES, DO SPECIAL CALL 


1835 


03271 


2210 


FINCAL. 


ISZ 




OUTCAL 


/FIX RETURN 


1636 


03272 


4500 




JMS 


I 


QOUTWRD 


/OUTPUT CODE 


1637 


03273 


1133 




TAD 




0400 


/SET TOP OF STACK 


1838 


03274 


1056 




TAD 




TYPEl 




1839 


03275 


3414 




OCA 


I 


OSTACK 


/TO AC 


1840 


03276 


3414 




DCA 


I 


OSTACK 


/SYMBOL NUMBER IS MEANING 


1641 


03277 


7130 




CLL 


CML 


RAR 




1642 


03300 


0056 




AND 




TYPEl 


/INTERPRETER MODE SAME 


1643 


03301 


3055 




OCA 




MODE 


/AS FUNCTION TYPE 


1844 


03302 


5610 




JMP 


I 


OUTCAL 


/ON RETURN 


1845 


03303 


4532 


CAL.LUF, 


JMS 


I 


ONOREGS 


/FORGET REGS ON USER FUNC 


1846 


03304 


1071 




TAD 




LUFLO 


/OUTPUT JSUB 


1847 


03305 


0374 




AND 




(70 


/WITH POINTER TO 


1846 


03306 


7106 




CLU 


RTL 




/DOUBLE WORD 


1849 


03307 


1373 




TAD 




(jsue 


/VALUE OF LOCATION 


1850 


03310 


4500 




JMS 


I 


QOUTMNO 


/COUNTER FOR THE 


1851 


03311 


1010 




TAD 




X10 


/START OF THE 


1652 


03312 


7001 




lAC 






/USER "0EF"1NED FUNC 


1853 


03313 


5271 




JMP 




FINCAL 




1854 


03314 


0000 


FSUBl, 









/FOR SUBROUTINE #1 


1855 


03315 


4505 




JMS 


I 


OEXPR 


/GET AN EXPRESSION 


1856 


03316 


5323 




JMP 




BADFOR 




1857 


03317 


4520 




JMS 


1 


QLOAO 


/LOAD VALUE 


1656 


03320 


1056 




TAD 




TYPEl 


/MUST BE NUMERIC 


1659 


03321 


7700 




SMA 


CLA 






1660 


03322 


5714 




JMP 


1 


FSUBl 


/OK 


1661 


03323 


4473 


BAOFQR, 


JMS 


I 


QERMSG 


/BAD FOR LOOP PARAMETERS 


1862 


03324 


0620 




0620 








1663 


03325 


5510 




JMP 


I 


QREMARK 




1664 


03326 


0000 


FSUB2, 









/FOR SUBROUTINE #2 


1865 


03327 


4314 




JMS 




FSUBl 


/GET EXPR AND LOAD IT 


1866 


03330 


4772' 




JMS 




GENTMP 


/MAKE A TEMP FOR IT 


1867 


03331 


1027 




TAD 




SYMBOL 


/STORE EXPR IN TEMP 


1866 


03332 


1375 




TAD 




(F8TA 




1869 


03333 


4500 




JMS 


I 


QOUTWRD 




1870 


03334 


1027 




TAD 




SYMBOL 


/RETURN SLOT # 


1671 


03335 


5726 




JMP 


I 


F8UB2 




1672 






FUNNUM, 










1873 


03336 


000(j 


NOREGS, 









/FORGET REGISTOrtS 


1874 


03337 


7201 




CLA 


lAC 




/FILE NUMBER REG 


1875 


03340 


3063 




OCA 




IFNREG 





/05/6 BASIC COMPIUEH 

1876 / CMA 

1877 / OCA 
1876 / CMA 

1879 / OCA 

1880 03341 5736 JMP 
1681 03342 4474 CLOSE, JMS 
1882 03343 7201 CIA 
1863 03344 4771* JMS 

1884 03345 1370 TAD 

1885 0334fc 4500 JMS 

1886 03347 5507 JMP 
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I 
I 
lAC 



SSREGl 

SSRE62 
NORE&S 
OLOOSN 



/SUBSCRIPT REG »1 
/SUBSCRIPT REG #2 



/OUTPUT STMT NUMBER 

/NO COLON NEEDED AFTER FILE NUM 
GETFN /GET FILE NUM 
(CLOSEF /OUTPUT CLOSE 
QOUTWRD 
ONEWLIN 
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1887 






/ CODE GENERATOR 


1868 


03370 


7434 








1R89 


03371 


2111 








1890 


03372 


4200 








1891 


03373 


5000 








1892 


03374 


0070 








1893 


0337S 


2400 








189a 


03376 


3122 








1895 


03377 


2663 








1696 




3400 


PAGE 




1697 


03400 


0000 


OUTOPR, 






1696 


03401 


3010 


DCA 




X10 


1899 


03402 


1410 


TAD 


I 


X10 


1900 


03403 


7540 


SfIA 


SZA 




1901 


03404 


5314 


JMP 




SPCIAL 


1902 


03405 


3026 


DCA 




TYPE 


1903 


03406 


1377 


TAO 




(XLOAO 


1904 


03407 


3355 


OCA 




CASEMM 


1905 


03410 


1410 


TAO 


I 


X10 


1906 


03411 


3354 


DCA 




CASEMA 


1907 


03412 


1410 


TAD 


I 


X10 


1908 


03413 


3356 


DCA 




CASEAM 


1909 


03414 


1026 


TAO 




TYPE 


1910 


03415 


4476 


JM8 


I 


QMOOSET 


1911 


03416 


7144 


CLU 


CMA 


RAU 


1912 


03417 


101<t 


TAD 




OSTACK 


1913 


03420 


3014 


DCA 




OSTACK 


191fl 


03421 


1014 


TAD 




OSTACK 


191S 


03422 


3010 


DCA 




X10 


1916 


03423 


1410 


TAO 


I 


X10 


1917 


03424 


3357 


OCA 




TYPE2 


1918 


03425 


1410 


TAO 


I 


!(10 


1919 


03426 


3360 


DCA 




SYMBL2 


1920 


03427 


1357 


TAO 




TYPE2 


1921 


03430 


0376 


AND 




(3 


1922 


03431 


3021 


OCA 




TEMP 


1923 


03432 


1357 


TAO 




TYPE2 


1924 


03433 


0133 


AND 




Q400 


192S 


03434 


7640 


SZA 


CUA 




1926 


03435 


5256 


JMP 




MAC 


1927 


03436 


7132 


CLl. 


CML 


RTR 


1928 


03437 


0357 


AND 




TYPE2 


1929 


03440 


7650 


SNA 


CLA 




1930 


03441 


5245 


JMP 




A20K 


1931 


03442 


4512 


JM8 


I 


OLOAOSS 


1932 


03443 


2355 


ISZ 




CASEMM 


1933 


03444 


2356 


ISZ 




CA8EAM 


1934 


03445 


4317 


A20K« JMS 




GETAl 


1935 


03446 


1056 


TAO 




TYPEl 


1936 


03447 


0133 


AND 




Q400 


1937 


03450 


7640 


SZA 


CUA 




1936 


03451 


5306 


JMP 




ACM 


1939 


03452 


1755 


MM, TAD 


1 


CASEMM 


1940 


03453 


1360 


TAD 




SYMBL2 


1941 


03454 


4500 


JMS 


I 


aOUTWRD 



/OUTPUT CODE FOR OPERATOR 
/SAVE POINTER TO SKELETON 
/GET CONTROL WORO 

/TREAT AS SPECIAL CASE 
/ITS THE TYPE ALLOWANCE 
/GET SKEL AODRS 
/FOR THE THREE CASES 



/ENTER CORRECT MODE 
/GET THE SECOND OPERAND 



/BY BACKING UP THE STACK 
/TYPE 



/SYMBOL NUMBER 



/SS COUNT 

/LOOK AT OPERAND 2 



/MUST BE CASE M,AC 

/ITS IN MEMORY, IS IT SS'U 



/NO, ITS SCALAR 

/LOAD NECESSARY SS REGS 

/FIXUP THE SKELETON POINTERS 

/GET STUF FOR ARGl 
/LOOK AT IT 



/ITS CASE AC,M 

/ITS CASE M,M LOAD OPERAND 2 
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PAL8-V8 10/30/72 PAGE 35-1 



1902 


03455 


7410 




SKP 








1943 


03456 


431/ 


MAC, 


JMS 




GETAl 


/GET STUF FRO AHGl 


1944 


03457 


7132 




CLL 


CML 


RTR 


/IS IT SS'O ? 


1945 


03460 


0056 




AND 




TYPEl 




1946 


03461 


7650 




SNA 


CLA 






1947 


03462 


5265 




JMP 




AlOK 


/NO, ITS SCALAR 


1948 


03463 


4512 




JMS 


I 


QLOAOSS 


/LOAD THE SS MEtiS 


1949 


03464 


2354 




ISZ 




CASEMA 


/BUMP SKELETON AODR 


1950 


03465 


1754 


AlOK, 


TAD 


I 


CASEMA 


/GET CORRECT INSTRUCTION 


1951 


03466 


1057 




TAD 




SYMBLl 


/PLUS SYMBOL NUMBER 


1952 


03467 


4500 


TYPCHK, 


JMS 


I 


QOUTWRO 


/OUTPUT IT 


1953 


03470 


7130 




CLL 


CML 


RAR 


/TYPES OF OPERANDS MUST MATC 


1954 


03471 


0056 




AND 




TVPEl 




1955 


03472 


1357 




TAD 




TyPE2 




1956 


03473 


7710 




SPA 


CLA 






1957 


03474 


5311 




JMP 




MIXED 


/TMEY DON'T 


1958 


03475 


1026 




TAO 




TYPE 


/TYPE OF OPERATOR 


1959 


03476 


1056 




TAD 




TYPEl 


/MUST MATCH 


196e 


03477 


7710 




SPA 


CLA 




/THAT OF OPERANDS 


1961 


03500 


5311 




JMP 




MIXED 


/THEY DON'T 


1968 


03501 


1133 




TAD 




Q400 


/GENERATE STACK ENTRY 


1963 


03502 


1026 




TAO 




TYPE 




1964 


03503 


3414 




OCA 


I 


QSTACK 




1965 


03504 


3414 




DCA 


I 


OSTACK 


/THIS IS SAFE 


1966 


03505 


5600 




JMP 


I 


OUTOPR 




1967 


03506 


1756 


ACM, 


TAO 


I 


CASEAM 


/ITS CASE AC,M 


1968 


03507 


1360 




TAD 




SYMBL2 


/GEN OPERATION FOR OPERAND 2 


1969 


03510 


5267 




JMP 




TYPCHK 


/GO FINISH IT UP 


1970 


03511 


4473 


MIXED, 


JMS 


I 


QERMSG 


/MIXED TYPES 


1971 


03512 


1524 




152i 


1 






1972 


03513 


5600 




JMP 


I 


OUTOPR 




1973 


03514 


1410 


SPCIAL, 


TAO 


I 


X10 


/GET AODR OF SPECIAL RTNE 


1974 


03515 


3021 




OCA 




TEMP 


/(PLUS 1 FROM THE TYPE i*DRO) 


1975 


03516 


5421 




JMP 


I 


TEMP 


/HANDLE SPECIAL CASE 


1976 


03517 


0000 


GETAl, 









/GET STUFF FOR ARG I 


1977 


03520 


7144 




CLU 


CMA 


RAL 


/BACK UP STACK 


1978 


03521 


1014 




TAD 




OSTACK 




1979 


03522 


3014 




OCA 




OSTACK 




1980 


03523 


1014 




TAD 




OSTACK 




1981 


03524 


3011 




DCA 




XU 




1982 


03525 


1411 




TAD 


I 


Xll 


/GET TYPEl 


1983 


03526 


3056 




OCA 




TYPEl 




1984 


03527 


1411 




TAD 


I 


Xll 


/GET SYMBLl 


1985 


03530 


3057 




DCA 




SYMBLl 




1986 


03531 


1056 




TAO 




TYPEl 


/GET SS COUNT 


1987 


03532 


0376 




AND 




C3 




1968 


03533 


3021 




DCA 




TEMP 




1989 


03534 


5717 




JMP 


I 


GETAl 




1990 


03535 


4524 


UMRTNE, 


JMS 


I 


QSAVAC 


/SAVE CURRENT AC IF NEEDED 


1991 


03536 


7775 




-3 








1992 


03537 


4520 




JMS 


I 


OLOAD 


/GET ARG IN AC 


1993 


03540 


3026 




OCA 




TYPE 


/TYPE MUST BE NUMERIC 


1994 


03541 


3357 




DCA 




TYPE2 




1995 


03542 


1375 




TAD 




(FNEG 


/OO NEGATE 


1996 


03543 


5267 




JMP 




TYPCHK 
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1997 
1998 
1999 

2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 



03544 
03545 
03546 
03547 
03550 
03551 
03552 
03553 
03554 
03555 
03556 
03557 
03560 
03561 
03562 
03563 
03564 
03565 
03566 
03567 



3026 
7126 

3021 

1374 

3027 

4773' 

5311 

5600 

0000 

0000 

0000 

0000 

0000 

4474 

4476 

1372 

1371 

1370 

4500 

5507 



EXPKTN, 



CASEMA, 

CASEMM, 

CASEAM, 

TYPE2, 

SYMBl.2, 

RETURN, 



RANDOM, 
STOPX, 



OCA 

CtL CMU 

DCA 

TAD 

DCA 

JMS 

JMP 

JMP I 











JMS I 

JMS I 

TAD 

TAD 

TAD 

JMS I 

JMP I 



TYPE /SET FUNC TYPE 

RTU /SET NUMBER OF AHGS 

TEMP 

CFUNCl+60 

SYMBOL /E)(P2 

OUTCAU /OUTPUT FUNCTION CALL 

MIXED /ERROR 

OUTQPR /DONE 



QLOOSN /OUTPUT STMT NUM LOAD 

QMODSET /ALWAYS RETURN IN N MODE 

(RET-RNDO 

(RNOO-STOP 

(STOP /RETURN, RANDOMIZE, OR STOP 

QOUTMRO 

ONEULIN 
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2017 






/ LETTEI 


i AND 


DI 


GIT SCANI 


MtRS 




2018 


03570 


7441 














2019 


03571 


7760 














2020 


03572 


7763 














2021 


03573 


3210 














2022 


0357a 


7«76 














2023 


03575 


7a03 














2024 


03576 


0003 














2025 


03577 


0770 














2026 




3600 




PAGE 










2027 


03600 


0000 


LETTER, 









/SKIP ON LETTER 




2028 


03601 


4502 




JMS 


I 


QGETC 






2029 


03602 


560hll 




JMP 


I 


LETTER 


/NO LETTER 




2030 


03603 


1377 




TAD 




(-133 


/MUST BE ,LT. 133 




2031 


03604 


7500 




SMA 










2032 


03605 


5214 




JMP 




NOLETR 






2033 


03606 


1376 




TAD 




(133-100/MUST BE .GT. Ilia 




2034 


03607 


7510 




SPA 










2035 


03610 


5214 




JMP 




NOLETR 






2036 


03611 


0375 




AND 




(77 


/RESTORE 6 BITS 




2037 


03612 


2200 




ISZ 




LETTER 


/BUMP RETURN ADOR 




2038 


03613 


5600 




JMP 


I 


LETTER 






2039 


03614 


4525 


N01.ETR, 


JMS 


I 


08ACK1 


/PUT CHAR BACK 




2040 


03615 


5600 




JMP 


I 


LETTER 






2041 


03616 


0000 


DIGIT, 









/SKIP ON OIGIT 




2042 


03617 


4502 




JMS 


I 


QGETC 






2043 


03620 


5616 




JMP 


I 


OIGIT 


/NO DIGIT 




2044 


03621 


1374 




TAD 




(-72 


/MUST 8E .LT, 72 




2045 


03622 


7100 


07100, 


CLL 






/(USED AS LITERAL BY "TTY 


') 


2046 


03623 


1373 




TAD 




(72-60 


/MUST BE ,G£, 60 




2047 


03624 


7420 




SNU 










2048 


03625 


5230 




JMP 




NODIGT 


/NOPE 




2049 


03626 


2216 




ISZ 




OIGIT 


/RETURN DIGIT MINUS 60 




2050 


03627 


5616 




JMP 


I 


DIGIT 






2051 


03630 


4525 


NODIGT, 


JMS 


I 


QBACKl 


/PUT IT BACK 




2052 


03631 


5616 




JMP 


I 


OIGIT 







• 



• 
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2053 






/ STATEMENT 


NUMBER GETTER 


2054 


03632 


0000 


SNUM, 









/GET A STATEMENT NUMBER 


2055 


03633 


3021 




DCA 




TEMP 


/SAVE DEFINED SWITCH 


2056 


03634 


4531 




JMS 


I 


QOIGIT 


/GET FIRST DIGIT 


205T 


03635 


5632 




JMP 


I 


SNUM 


/NO STATEMENT NUMBER 


20SB 


03636 


3135 




DCA 




M0R02 


/THIS WILL BE THE BUCKET 


2059 


03637 


U35 




TAD 




WQRD2 




2060 


03640 


7104 




CUU 


RAL 




/TWO WORDS PER BUCKtT 


2061 


03641 


1372 




TAO 




CSNUMS 




2062 


03642 


3272 




OCA 




BUCKET 




2063 


03643 


2232 




ISZ 




SNUM 


/OK, ITS A STMT NUMBER 


2064 


03644 


1371 




TAD 




(-4 


/FIVE DIGITS MAX 


2065 


03645 


3022 




OCA 




TEMP2 




2066 


03646 


3134 




DCA 




WQROl 


/CLEAR TOP WORD 


2067 


03647 


4531 


SNL.OOP* 


JMS 


I 


QDIGIT 


/GET NEXT DIGIT 


206S 


03650 


5271 




JMP 




GOTSN 


/END OF NUMBER 


2069 


03651 


3136 




DCA 




H0RD3 


/SAVE IT 


20T0 


03652 


1371 




TAD 




(-4 


/SET SHIFT COUNT 


2071 


03653 


3137 




DCA 




ACQ 




2072 


03654 


1135 


SHIFT, 


TAD 




W0RD2 


/SHIFT LEFT ONE BIT 


2073 


03655 


7104 




CLl 


RAL 






2074 


03656 


3135 




OCA 




W0RD2 




2075 


03657 


1134 




TAD 




WORDl 




2076 


03660 


7004 




RAL 








2077 


03661 


3134 




OCA 




MORDl 




2078 


03662 


2137 




ISZ 




ACQ 


/BUMP SHIFT COUNTER 


2079 


03663 


5254 




JMP 




SHIFT 




2080 


03664 


1135 




TAD 




M0RD2 


/PUT IN NEW DIGIT 


2081 


03665 


1136 




TAO 




W0R03 




2082 


03666 


3135 




OCA 




M0R02 




2083 


03667 


2022 




ISZ 




TEMP2 


/BUMP DIGIT COUNT 


2084 


03670 


5247 




JMP 




SNLOOP 




2085 


03671 


4517 


GOTSN, 


JMS 


I 


QLUKUP2 


/FIND STMT NUMBER 


2086 


03672 


0000 


BUCKET, 











2087 


03673 


7776 




-2 








2088 


03674 


5316 




JMP 




NEMSN 


/ITS A NEW STMT NUM 


2089 


03675 


7130 




CLL 


CML 


RAR 


/CHECK FOR MULTIPLY DEFl 


2090 


03676 


0027 




AND 




SYMBOL 




2091 


03677 


0021 




AND 




TEMP 




2092 


03700 


7640 




SZA 


CLA 






2093 


03701 


5325 




JMP 




MOLABL 


/YES, IT IS 


2094 


03702 


1010 




TAO 




X10 


/GET ADDR OF LABEL VALUE 


2095 


03703 


3022 




DCA 




TEMP2 




2096 


03704 


4070 




JMS 




SETFLD 


/GET TO FIELD OF ENTRY 


2097 


03705 


1021 




TAD 




TEMP 


/OR IN THESE BITS 


2098 


03706 


1027 




TAD 




SVMaQL 




2099 


03707 


3422 




DCA 


I 


TEMP2 




2100 


03710 


6201 


FINSN, 


COF 








2101 


03711 


1071 




TAO 




LUFLO 


/GET FIELD BITS 


2102 


03712 


0370 




AND 




(70 




2103 


03713 


7106 




CLL 


RTL 






2104 


03714 


3021 




OCA 




TEMP 


/INTO A CONVIENIENT 


2105 


03715 


5632 




JMP 


I 


SNUM 


/PLACE 


2106 


03716 


4070 


NEW8N, 


JMS 




SETFLD 


/GET FIELD 


2107 


03717 


1021 




TAD 




TEMP 


/PUT IN BITS 



mimm 
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2108 03720 3ai6 OCA I 

2109 03721 1016 TAD 

2110 03722 3022 DCA 

2111 03723 3«lfc DCA I 

2112 0372« SSlk) JMP 

2113 03725 ami MDUABLi JMS I 

2114 0372«» 1504 1504 

2115 03727 5632 JMP I 
Zllfe 03730 0000 TTY, 

2117 03731 0375 AND 

2118 03732 1367 TAD 

2119 03733 7510 SPA 

2120 03734 1222 TAD 

2121 03735 1366 TAD 

2122 03736 4340 JMS 

2123 03737 5730 JMP I 

2124 03740 0000 TTX, 

2125 03741 7410 5KP 

2126 03742 5346 JMP 

2127 03743 6041 TSF 

2128 03744 5343 JMP 

2129 03745 6046 TLS 

2130 03746 7200 CLA 

2131 03747 5740 JMP I 



NEXT 

NEXT 

TeMP2 

NEXT 

FINSN 

QERMSG 

SNUM 

C77 

C-48 

07100 
(240 
TTX 
TTY 



.♦4 
,«1 

TTX 



/SAVE N3 AOD« 

/I EXTRA WORD 

/MULTIPLY DEFINED 
/LABEL 

/CONVERT TO ASCII AND PRINT 

/SIX BITS ONLY 

/WHAT SIDE OF FORTY ? 

/LOW SIDE 

/HIGH SIDE 

/PRINT CHAR 

/RETURN 

/PRINT CHAR ON TTY 

/(CONTROL ZEROES THIS WORD) 

/(THUS KILLING ERROR REPORTING) 



f 



t 



• 



• # 
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/ CHAIN PROCESSOR 

CHAIN, JMS I QLODSN /OUTPUT STMT NUMBtR 

JMS I QEXPR /GET CHAIN STRING 

JMP I QHEMARK 

JMS I QUOAD /INTO SAC 

TAD TVPEl /TYPE MUST BE STRING 
SMA CUA 

JMS I QERMSG /IT WASN'T 
0616 /COK IF ERROR CODE IS NOP) 

TAD (CHN /OUTPUT CHAIN OPCODE 

JMS I QOUTMRD 

JMP I QNENLIN 

XISUB, FISUBlAISUa 



2132 






2133 


03750 


4474 


2134 


03751 


4505 


2135 


03752 


5510 


2136 


03753 


4520 


2137 


03754 


1056 


2136 


03755 


7700 


2139 


03756 


4473 


2140 


03757 


0616 


2141 


03760 


1365 


2142 


03761 


4S00 


2143 


03762 


5507 


2144 


03763 


3000 


2145 


03764 


6400 
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2146 
2147 
21«B 
21«9 
2150 
2151 
2152 
2153 
2154 
2155 
215(> 
2157 
2158 
21S9 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
21T2 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2l9« 
2195 
2196 
2197 
2198 
2199 
2200 



/ SEVERAL SHORT UTILITY ROUTINES 



03765 
03766 
03767 
03770 
03771 
03772 
03773 
03774 
03775 
03776 
03777 

04000 
04001 
04002 
04003 
04004 
04005 
04006 
04007 
04010 
04011 
04012 
04013 
04014 
04015 
04016 
04017 
04020 
04021 
04022 
04023 
04024 
04025 
04026 
04027 
04030 
04031 
04032 
04033 
04034 
04035 
04036 
04037 
04040 
04041 
04042 
04043 
04044 
0404S 
04046 
04047 
04050 
04051 



7414 
0240 
774U 
0070 
7774 
2532 
0012 
7706 
0077 
0033 
7645 
4000 
0000 
7240 
1020 
3020 
7240 
1017 
3017 
5600 
0000 
2020 
5216 
724k) 
3020 
5610 
2210 
1417 
5610 
0000 
1020 
336S 

1017 
3366 
5621 
0000 
1366 
3017 
1365 
3020 
5627 
0000 

5243 
7240 
3020 
5635 
1417 
1377 
7450 
5236 
1376 
2235 
5635 



PAGE 

BACKl, 

CLA CMA 

TAD NCHARS 

OCA NCHARS 

CIA CMA 

TAD CHRPTR 

OCA CHRPTR 

JMP 1 BACKl 

GETCWB, 

ISZ NCHARS 
JMP .+4 
CLA CMA 

OCA NCHARS 
JMP I GETCiJB 
ISZ GETCWB 
TAD I CHRPTR 
JMP I GETCWB 

SAVECP, 

TAD NCHARS 
OCA NCSAVE 
TAD CHRPTR 
DCA CPSAVE 
JMP I SAVECP 

RESTCP, 

TAD CPSAVE 
DCA CHRPTR 
TAD NCSAVE 
DCA NCHARS 
JMP I RESTCP 

GETC, 

ISZ NCHARS 

JMP ,♦4 

CLA CMA 

OCA 

JMP I 

TAD I 

TAD 

SNA 

JMP GETC+1 

TAD C40 

ISZ GETC 

JMP 1 GETC 



/BACK UP ONE CHAR 



/GET A CHARACTER (PRESERVE BLANKS) 



/RESET NCHARS 



/GET THE CHAR 
/SAVE CHAR POSITION 



/RESTORE CHAR PD3 



/GET A CHARACTER (IGNORING BLANKS) 



NCHARS 

GETC 

CHRPTR 

(-40 /IS IT A BLANK 



/YES IGNORE IT 
/FIX CHAR 



t 



/OS/a BASIC COMPIUEK 
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2201 


04052 


0000 


POP, 









/GET TOP OF STACK 


S202 


040S3 


1015 




TAD 




STACK 




2203 


04054 


3262 




OCA 




PUSH 




2204 


04055 


7240 




CLA 


CMA 






2205 


04056 


1015 




TAO 




STACK 




2206 


04057 


3015 




OCA 




STACK 


/DECREMENT STACK POINTER 


3207 


04060 


1662 




TAO 


I 


PUSH 




2206 


04061 


5652 




JHP 


I 


POP 




2209 


04062 


0000 


PUSH, 









/PUT AC ONTO STACK 


2210 


04063 


3415 




OCA 


I 


STACK 


/STORE 


2211 


04064 


1375 




TAD 




C-STACKA-STAKSZ+1 


2212 


04065 


1015 




TAD 




STACK 


/CHECK FOR OVERFLOW 


2213 


04066 


7710 




SPA 


CLA 






22H 


04067 


5662 




JMP 


I 


PUSH 


/OK, RETURN 


2215 


04070 


4473 


STKOVR, 


JMS 


I 


0ERMS6 




2216 


04071 


2004 




2004 






2217 


04072 


5406 




JMP 




XABORT 


/ABORT COMPILATION 


22ie 


04073 


0000 


PUSHO, 









/PUSH OPERAND STACK 


2219 


04074 


3414 




OCA 




OSTACK 


/PUSHIT 


2220 


04075 


1374 




TAD 




C-STACKQ-STOKSZ*! 


2221 


04076 


1014 




TAD 




OSTACK 


/CHECK FOR STACK OVERFLOW 


2222 


04077 


7710 




SPA 


CUA 






2223 


04100 


5673 




JMP 




PUSHO 




2224 


04101 


5270 




JMP 




STKOVR 


/TOO FULL 


2225 


04102 


0000 


CDMARP, 









/SKIP ON COMA OM RITE PAREN 


2226 


04103 


4502 




JMS 




QGETC 


/GET CHAR 


2227 


04104 


5702 




JMP 




COMARP 




2226 


04105 


1373 




TAD 




t-51 




2229 


04106 


7450 




SNA 








2230 


04107 


2302 




ISZ 




COMARP 


/RITE PAREN, SKIP 2 


2231 


04110 


7440 




SZA 








2232 


04111 


1372 




TAD 




(51-54 


/CHECK FOR , 


2233 


04112 


7450 




SNA 








2234 


04113 


2302 




ISZ 




COMARP 


/, SKIP I 


2235 


04114 


7640 




SZA 


CLA 






2236 


04115 


4525 




JMS 


I 


QBACKl 


/NEITHER PUT BACK 


2237 


04116 


5702 




JMP 


I 


COMARP 




2236 


04117 


0000 


LOAD, 









/LOAD SAC OR FAC 


2239 


04120 


4511 




JMS 


I 


QGETAl 


/GET TOP OF STACK 


2240 


04121 


1056 




TAO 




TYPEl 


/SET MODE 


2241 


04122 


4476 




JMS 


1 


QMOOSET 




2242 


04123 


1056 




TAO 




TYPEl 


/IS IT IN THE AC? 


2243 


04124 


0133 




AND 




0400 




2244 


04125 


7640 




SZA 


ClA 






2245 


04126 


5717 




JMP 


I 


LOAD 


/YUP 


2246 


04127 


7132 




CLL 


CML 


RTR 


/SUBSCRIPTED ? 


2247 


04130 


0056 




AND 




TYPEl 




2246 


04131 


7650 




SNA 


CLA 






2249 


04132 


5335 




JMP 




.*3 


/NO 


2250 


04133 


4512 




JMS 


I 


QLOAOSS 


/FILL SS REGS 


2251 


04134 


1371 




TAO 




(AFUDA- 


FLOA 


2252 


04135 


1370 




TAD 




CFLOA 


/ARRAY OR SCALAR LOAD 


2253 


04136 


1057 




TAO 




SYMBLl 


/PLUS SYMBOL NUMBER 


2254 


04137 


4500 




JMS 


I 


OOUTWRO 




2255 


04140 


5717 




JMP 


1 


LOAD 





/OS/8 


BASIC COMPILES 




PALe»V8 


10/30/72 


PAGE 


29-2 


2256 


04141 


5003 


IFOPS, 


JNEj-7476 


to 






2257 


04142 


0302 












2250 


04143 


5003 




JNEf-7674 


/>< 






2259 


04144 


0104 












2260 


04145 


500<2 




JGE»-7576 


/«> 






22e>l 


04146 


0202 




. 








22(>2 


04147 


5002 




JGE»-7675 


/>" 






2263 


04150 


0103 












226tt 


04151 


5007 




JLEf-7574 


/"< 






2265 


04152 


0204 












2266 


04153 


5007 




JUE;-7475 


/«■ 






2267 


04154 


0303 












2268 


04155 


0000 













2269 


04156 


5006 




JEQI-75B0 


/» 






2270 


04157 


0300 












2271 


04160 


5004 




J6Tf<<'76«10 


/> 






2272 


04161 


0200 












2273 


04162 


5005 




JLTj-7400 


/« 






2274 


04163 


0400 












2275 


04164 


00012 













2276 


04165 


0000 


NCSAVE, 











2277 


04166 


000k) 


CPSAVEf 
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2278 






/ TEMP 6ENER 


ATO 


43 AND AC 


: SAVIN6 KuurxNta 


2279 


04170 


2000 










2280 


04171 


4640 










2281 


04172 


7775 










2282 


04173 


7727 










2283 


04174 


6601 










228tt 


04175 


0601 










2285 


04176 


0040 










228(> 


04177 


7740 










2287 




4200 


PACE 








2288 


04200 


0000 


GENTMP, 






/GENERATE A TEMP 


2289 


04201 


7640 


SZA 


CLA 






2290 


04202 


5213 


JMP 




STRTMP 


/ITS A STRING TEMP 


2291 


04203 


1033 


TAO 




TMPCNT 




2292 


04204 


2033 


ISZ 




TMPCNT 


/BUMP COUNT 


2293 


04205 


3134 


DCA 




NAMEl 




2294 


04206 


4517 


JMS 


I 


QLUKUP2 


/LOOK UP THIS TtMP 


2295 


04207 


2556 


TEMPS 






2296 


04210 


7777 


-1 








2297 


04211 


4223 


JM8 




NEMVAR 


/NEM ONE ON ME 


2298 


04212 


5600 


JMP 


I 


GENTMP 




2299 


04213 


103S 


STRTMP, TAD 




STMPCT 




2300 


04214 


2035 


ISZ 




STMPCT 


/3UMP COUNT 


2301 


04215 


3134 


DCA 




NAMEl 




2302 


04216 


4517 


JMS 


I 


QLUKUP2 


/LOOK UP THIS TEMP 


2303 


04217 


2560 


STEMP8 






2304 


04220 


7777 


• 1 








2305 


04221 


4236 


JMS 




NWSVAR 


/NEW STRING TEMP 


2306 


04222 


5600 


JMP 


I 


GENTMP 




2307 


04223 


0000 


NEWVAR, 






/MAKE SYM NUM FOR VAR 


2308 


04224 


1040 


TAD 




VARCNT 


/PUT SYM NUM 


2309 


04225 


1377 


TAD 




(401 




2310 


04226 


3027 


DCA 




SYMBOL 


/INTO SYMBOL 


2311 


04227 


1027 


TAD 




SYMBOL 


/AND INTO ST ENTRY 


2312 


04230 


407ld 


JMS 




SETFLD 




2313 


04231 


3416 


DCA 


I 


NEXT 




2314 


04232 


6201 


CDF 








2315 


04233 


2040 


ISZ 




VARCNT 


/8UMP COUNT 


2316 


04234 


5623 


JMP 


I 


NEWVAR 


/RETURN WITH SYM NUM 


2317 


04235 


5776' 


JMP 




STOVER 


/S.T. OVERFLOW 


2318 


04236 


0000 


NWSVAR, 






/MAKE SYM NUM FOR VAR$ 


2319 


04237 


1041 


TAD 




SVCNT 


/PUT SYM NUM 


2320 


04240 


1377 


TAD 




(401 




2321 


04241 


3027 


DCA 




SYMBOL 




2322 


04242 


1027 


TAD 




SYMBOL 


/INTO SYMBOL ANO 


2323 


04243 


4070 


JMS 




SETFLO 




2324 


04244 


3416 


DCA 


I 


NEXT 


/S.T. ENTRY 


2325 


04245 


6201 


CDF 








2326 


04246 


2041 


ISZ 




SVCNT 


/OVERFLOW 7 


2327 


04247 


5636 


JMP 


I 


NWSVAR 


/NO, WE'RE OK 


2328 


04250 


5776' 


JMP 




STOVER 




2329 


04251 


0000 


SAVAC, 






/SAVE FAC (OR SAC) IF 


2330 


04252 


1651 


TAO 


I 


SAVAC 


/GET ENTRY POINTER 


2331 


04253 


1014 


TAO 




OSTACK 




2332 


04254 


2251 


ISZ 




SAVAC 
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3333 

a334 

2335 

2336 
2337 
2338 

2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
234S 
2349 
2350 
2351 
2352 
2353 
2354 



04255 
04256 
04257 
04260 
04261 
04262 
04263 
04264 
04265 
04266 
04267 
04270 
04271 
04272 
04273 
04274 
04275 
04276 
04277 
04300 
04301 
04302 



3300 
1700 
0133 
7650 
5651 
7130 
0700 
3700 
1700 
4200 
1700 
4476 
1301 
1027 
4500 
1027 
2300 
3700 
5651 
0000 
2400 
6700 



OCA 
TAD 1 
AND 

SNA CLA 
JMP I 



3VTEMP 
SVTEMP 
Q400 

SAVAC 



CLL CML RAR 
AND 1 SVTEMP 



SVTEMP, 
XSTOR, 



DCA I 

TAD 1 

JMS 

TAD I 

JMS I 

TAD 

TAD 

JMS 1 

TAD 

ISZ 

DCA I 

JMP I 



FSTAMFSTA 



SVTEMP 

SVTEMP 

GENTMP 

SVTEMP 

QM0D8ET 

XSTOR 

SYMBOL 

OOUTWRD 

SYMBOL 

SVTEMP 

SVTEMP 

SAVAC 



/ADDS OF TYPE WUSD 
/LOOK AT IT 



/NOT IN AC 

/SAVE STRING BIT ONLY 

/OF TYPE WORD 



/GENERATE TEMP 

/SET MODE 

/GENERATE STORE 

/RETURN S.T, NUMBER 
/MOVE TO SYMBOL NUM WORD 
/SAVE THE TEMP NUM THERE 
/RETURN WITH SAVE MADE 
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2355 
2356 

2357 
2356 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 



04303 
04304 
04305 
04306 
04307 
04310 
04311 
04312 
0«313 
04314 
04315 
04316 
0«317 

04320 
04321 
04322 
04323 
04324 
04325 
04326 
04327 
04330 
04331 
04332 
04333 
04334 
04335 
04336 
04337 
04340 
04341 
04342 
04343 
04344 
04345 
04346 
04347 
04350 
04351 
04352 



0000 
7144 
1021 
7650 
5314 
7420 
5320 
4323 
5703 
7201 
4323 
4323 
5703 

4473 
2323 

5703 



/ SUBSCRIPT REGISTEK LOADING ROUTINE 
LOAOSS, /LOAD SS REGS 

RAL /LOOK AT NUMBER OF SS 

TEMP 



CLL CMA 
TAD 
SNA CLA 
JMP 
SNL 
JMP 
JMS 
JMP I 
L00SS2, CLA lAC 
JMS 
JMS 
JMP I 



S8TYPE, 
TOOMNY, 



0000 SSLOAD* 

3022 

7144 

1014 

3014 

1014 

3011 

1411 

7510 

5320 

0133 

7640 

5347 

1022 

7640 

1375 

1374 

1411 

4500 

5723 

1022 

1373 

4500 

5723 



L00SS2 /2 SS 



TOOMNY 
SSLOAD 
LOAOSS 

SSLOAD 
SSLOAD 
LOAOSS 



/MORE THAN 2 
/LOAD SS REG 1 



/LOAD SS REG 2 
/NOW SS REG 1 



JMS I 
2323 

JMP I 


OCA 

CLL CMA 
TAD 
OCA 
TAD 
OCA 
TAD I 
SPA 
JMP 
AND 

SZA CLA 
JMP 
TAD 

SZA CLA 
TAD 
TAD 
TAD I 
JMS I 
JMP I 
SSINAC, TAD 
TAD 
JMS I 
JMP I 



QERMSG /SUBSCRIPTING ERROR 



LOADSS 

TEMP2 

RAL 
OSTACK 

OSTACK 

OSTACK 

xu 

Xll 



/LOAD A SS REG FROM TOP OF STACK 
/SS REG 1 OR 2 SWITCH 
/BACK UP ONE ENTRY 
/ON THE OPERAND STACK 



/USE Xll TO GET STUFF 
/GET TYPE WORD 



SSTYPE /SS MUST BE A NUMBER 
Q400 /GET AC BIT 



SSINAC 

TEMP2 



/ITS IN THE AC 



(LSS2-LSS1 



(LSSl /LOAD REG 1 OR 2 77 

Xll /ANYHOW, THIS IS THE SOURCE 

OOUTWRD /OUTPUT THE CODE 

SSLOAD 

T F HP 9 

(LSSIAC /NOTEl LSS2AC«LSSl AC*l 
QOUTWRD /SO OUTPUT ONE OF THEM 
SSLOAD 
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2397 






/INPUT DEVICE H 


2398 


04373 


7406 




2399 


04374 


4000 




2402 


04375 


0400 




2ttfll 


0437b 


2337 




2002 


04377 


0401 




2403 




4400 


•INOEVH 


2404 


04400 


0000 






• 



/OS/8 BASIC COMPIUEK 



PAL8-V6 10/30/72 PAGE 33 



aaes 

2406 460li9 

2407 04600 6212 

2408 04601 4777 

2409 04602 0005 

2410 04603 0201 

2411 04604 6221 

2412 04605 1413 

2413 04606 6211 

2414 04607 3412 

2415 04610 2021 

2416 04611 5204 

2417 04612 6211 
2416 04613 3410 

2419 04614 6201 

2420 04615 1411 

2421 04616 7450 

2422 04617 5236 

2423 04620 3225 

2424 04621 7201 

2425 04622 6212 

2426 04623 4777 

2427 04624 0002 

2428 04625 0000 XXXXSV, 

2429 04626 0000 

2430 04627 5776' 

2431 04630 1225 

2432 04631 7001 

2433 04632 6211 
2454 04633 3410 

2435 04634 6201 

2436 04635 5215 

2437 04636 7201 

2438 04637 6212 

2439 04640 4777 

2440 04641 0002 

2441 04642 7562 

2442 04643 0000 

2443 04644 5247 

2444 04645 1242 

2445 04646 7001 

2446 04647 6211 

2447 04650 3410 

2448 04651 6201 

2449 046S2 7201 

2450 04653 6212 

2451 04654 4777 

2452 04655 0003 

2453 04656 7566 

2454 04657 0000 

2455 04660 5776* 

2456 04661 1256 

2457 04662 3775* 
2456 04663 1256 
2459 04664 3046 



/INITIALIZATION 

PAGE 
RUNNEDf CIP 

JMS I 

5 

0201 

COP 

TAD I 

COP 

OCA I 

ISZ 

JMP 

COP 

DCA I 

CDP 
PIND8V, TAD I 

SNA 

JMP 

OCA 

CLA lAC 

CIP 

JMS I 

2 





JMP 

TAO 

lAC 

CDP 

OCA X 

COP 

JMP 

CUA lAC 

CIP 

JMS I 

2 

BUPN 



JMP 

TAO 

lAC 

CDP 

DCA I 

CDP 

CLA lAC 

CIP 

JMS I 

3 

TMPFIL 



JMP 

TAO 

DCA 

TAD 

DCA 



CODE FOR KUN CASE 



10 
C200 



20 

X13 

10 

X12 

TEMP 

• •5 

10 

X10 

Xll 



LUBUP) 



3TRT3, 



TMPBLK, 



NG 
XXXXSV 

10 

X10 



10 

(200 



.♦3 
.-3 

10 
X10 



10 
(200 



/COME HERE IF ,H BCOMP 
/CALL COMMAND DECODER 

/ASSUMED EXTENSION "BA" 



/SAVE LOCATIONS 27774 THRU 27777 
/THESE ARE THE BOS PARAMETERS 



/ZERO EDITOR BLOCK NUMBER 
/LOOKUP SOME SAVE PILES 



LUBUP /GO LOOK FOR BASIC, UP 
XXXXSV /SAVE POINTER TO NAME 

/THEY'RE ON SYS 
10 

(200 



/ERROR 

/GET STARTING BLOCK 

/PLUS 1 



/INTO INFO AREA 
PINDSV /LOOP 



/LOOKUP BASIC, UF 

/(USER DEFINED FUNCTIONS) 

/OK IP NOT THERE 

/GET STARTING BLOCK +1 

/INTO INFO BLOCK 
/ENTER TEMPORARY FILE 



NG 

TMPBLK /SAVE START OF TEMP FILE 

OUBLOK 

TMPBLK /IN A COUPLE PLACES 

BLOCK 



/OS/a BASIC COMPILER PALe-V8 10/3fe)/72 PAGE 33-1 

TAD TMPBLK+l/ALSO THE SIZE 

DCA OUSIZE 

JMP GETDEV /GO FETCH DEVICE HANDLER 



2060 


00665 


1257 


2461 


04666 


3774» 


2462 


04667 


5773' 



# 
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2463 






/ NUMERIC CONVERSION ROUTINE (PART ONE) 


2464 


04773 


7032 










246S 


04774 


6506 










24fc<> 


04775 


6475 










2467 


04776 


7120 










2468 


04777 


0200 










2469 




5000 




PACE 






2470 


05000 


0000 


NUMBER 







/GENERAL NUMBER CONVERSION ROl 


2471 


05001 


3023 




OCA 


OECPT 


/ZERO DECIMAL POINT SWITCH 


2472 


09002 


3134 




DCA 


WORDl 


/ZERO FAC 


2473 


05003 


3135 




DCA 


M0R02 




2474 


05004 


3136 




DCA 


M0R03 




2475 


05005 


3137 




OCA 


ACO 




2476 


05006 


3212 




DCA 


SIGN 


/CLEAR SIGN SWITCH 


2477 


05007 


4502 




JMS I 


OGETC 


/GET A CHAR 


2478 


05010 


5600 




JMP I 


NUMBER 


/NO CHAR IS NO NUMBER 


2479 


0S011 


4777* 




JMS 


CHKSGN 


/CHECK FOR SIGN 


2480 


05012 


0000 


SIGN, 







/THIS SWITCH GETS SET 


2481 


05013 


3024 




OCA 


NDIGIT 


/ZERO DIGIT COUNT 


2482 


05014 


4531 


CONVLPi 


JMS I 


QOIGIT 


/GET A DIGIT 


2483 


05015 


5240 




JMP 


TRYOEC 


/IS THERE A DECIMAL POINT 7 


2484 


05016 


335S 




DCA 


NXTDGT 


/SAVE THE DIGIT 


2485 


05017 


2024 




ISZ 


NDIGIT 


/INCR NUMBER OF DIGITS 


2486 


05020 


113S 




TAD 


W0RD2 


/PREPARE TO MULT BY 10 


2487 


05021 


3141 




DCA 


0P2 




2488 


05022 


U36 




TAD 


W0R03 




2489 


05023 


3142 




DCA 


0P3 




2490 


05024 


1137 




TAD 


ACO 




2491 


05025 


3143 




DCA 


OPO 




2492 


05026 


4776 




JMS I 


(ALl 


/DOUBLE FAC 


2493 


05027 


4776 




JMS I 


(ALl 


/DOUBLE AGAIN 


2494 


05030 


4775 




JMS I 


(OAOD 


/TIMES FIVE 


249S 


05031 


4776 




JMS I 


(ALl 


/ONE MORE DOUBLING IS TIMES 10 


2496 


05032 


3141 




DCA 


0P2 




2497 


05033 


3142 




DCA 


OPS 


/PUT NEWEST DIGIT INTO OPERAND 


2498 


05034 


1355 




TAD 


NXTDGT 




2499 


05035 


3143 




DCA 


OPO 




2500 


05036 


4775 




JMS I 


(OADO 


/ADD IN NEWEST DIGIT 


2501 


05037 


5214 




JMP 


CONVLP 




2S02 


05040 


1023 


TRYOEC, 


TAD 


DECPT 


/DECIMAL ALREADY 7 


2503 


05041 


7640 




SZA CLA 






2504 


05042 


5256 




JMP 


TRYE2 


/YES, LOOK FOR EXPONENT 


2505 


05043 


4502 




JMS I 


QCETC 


/LOOK FOR , 


2506 


05044 


5253 




JMP 


OIGTST 


/SEE IF THERE WAS ANYTHING 


2507 


05045 


1374 




TAD 


(•56 




2508 


05046 


7640 




SZA CLA 






2509 


05047 


5252 




JMP 


TRYEl 


/TRY FOR E 


2510 


05050 


2023 




ISZ 


DECPT 


/SET DECIMAL POINT SW 


2Sn 


05051 


S21i 




JMP 


CONVLP- 


1/LOOP FOR OTHER DIGITS 


2512 


05052 


4525 


TRVEl, 


JMS I 


QBACKl 


/PUT BACK NON , 


2513 


05053 


1024 


DI5TST, 


TAD 


NDIGIT 


/ANY DIGITS YET 7 


2514 


05054 


7650 




SNA CLA 






2515 


05055 


5600 




JMP I 


NUMBER 


/NO, NO NUMBER 


2516 


05056 


4502 


TRyE2, 


JMS I 


QGETC 


/LOOK FOR E 


2517 


05057 


5300 




JMP 


NOEXP^l 


/GO HANDLE EXPONENT 



/OS/8 BASIC COMPILEH 



2518 


05060 


1360 




T*0 


wSTEP+2 


2519 


05061 


7640 




SZA CLA 




2520 


05062 


5277 




JMP 


NOEXP 


2521 


05063 


3267 


GETEXP, 


OCA 


ESI6N 


2522 


05064 


4502 




JMS I 


QGETC 


2523 


0S06S 


5277 




JMP 


NOEXP 


2524 


05066 


4777* 




JMS 


CHKS6N 


2525 






FPRTNE, 






2526 


05067 


0000 


ESIGN, 







2527 


05070 


4773' 




JMS 


SMLNUM 


2528 


05071 


1267 


FIXEXP, 


TAD 


ESIGN 


2529 


05072 


7650 




SNA CIA 




2530 


05073 


5301 




JMP 


N0EXP*2 


2531 


05074 


1025 




TAD 


EXPON 


2532 


05075 


7041 




CIA 




2533 


05076 


7410 




SKP 




2534 


05077 


4525 


NOEXP, 


JMS 1 


QBACKl 


2535 


05100 


3025 




OCA 


EXPON 


253(> 


05101 


1372 




TAO 


C43 


2537 


05102 


3134 




DCA 


WORDl 


2536 


05103 


4771 




JMS I 


CANORM 


2539 


05104 


1023 




TAD 


oecPT 


2540 


05105 


7640 




SZA CUA 




2541 


05106 


1024 




TAD 


NDIGIT 


2542 


05107 


7041 




CIA 




2543 


05110 


1025 




TAD 


EXPON 


2544 


05111 


7500 




SMA 




2545 


05112 


5317 




JMP 


P03EXP 


2546 


05113 


7041 




CIA 




2547 


05114 


3025 




DCA 


EXPON 


2548 


05115 


1370 




TAD 


(FPDIV 


2549 


05116 


5321 




JMP 


.♦3 


2550 


05117 


3025 


POSEXP, 


OCA 


EXPON 


2551 


05120 


1367 




TAD 


(FPMUL 


2552 


05121 


3267 




DCA 


FPRTNE 


2553 


05122 


1366 




TAO 


(PETABL 


2554 


05123 


3011 




OCA 


XU 


2555 


05124 


1025 


EXPMUL, 


TAD 


EXPON 


2556 


05125 


7450 




SNA 




2557 


05126 


5350 




JMP 


DOSIGN 


2558 


05127 


7110 




CLL RAR 




2559 


05130 


3025 




OCA 


EXPON 


2560 


05131 


7420 




SNL 




2561 


05132 


5345 




JMP 


SKPEXP 


2562 


05133 


1411 




TAD I 


XU 


2563 


05134 


3140 




OCA 


OPl 


2564 


05135 


1411 




TAO I 


XU 


2565 


05136 


3141 




DCA 


0P2 


2566 


05137 


1411 




TAD I 


XU 


2567 


05140 


3142 




OCA 


0P3 


2568 


05141 


1411 




TAO I 


XU 


2569 


05142 


3143 




DCA 


OPO 


2570 


05143 


4667 




JMS I 


FPRTNE 


2571 


05144 


5324 




JMP 


EXPMUL 


2572 


05145 


1011 


SKPEXP, 


TAD 


XU 



PAL6-V8 10/30/72 PACE 34-1 



/USE PART OF "STEP" LITERAL, 

/NO EXPONENT 

/ZERO EXPONENT SIGN SWITCH 

/GET A CHAR 

/TREAT AS NO EXPONENT 

/IS IT A SIGN 

/THIS IS THE SWITCH TQ SET 
/GO GET THE EXPONENT 
/CHECK EXPONENT SIGN 



/COMPLEMENT EXPONENT 



/PUT BACK NON E 
/ZERO EXPONENT 
/NORMALIZE THE NUMBER 



/WAS THERE A DECIMAL POINT ? 

/HOW MANY DIGITS TO THE RIGHT ? 

/SUBTRACT THAT NUMBER FROM EXP 

/EXPONENT IS POSITIVE 

/ONLV NEED ABS VALUE 
/DO DIVIDES 

/DO MULTIPLIES 
/MULTIPLV/OIVIOE ROUTINE 

•1 

/POWERS OF TEN TABLE 
/LOOK AT THE EXPONENT 

/IF ITS THRU 

/PUT LOWEST BIT INTO LINK 

/THIS ONE DOESN'T COUNT 
/MOVE FACTOR INTO OPERAND 



/MULTIPLY OR DIVIDE BY THIS FACTOR 

/CHECK NEXT BIT 

/SKIP OVER THIS FACTOR 



# 



/08/8 BASIC COMPILER PAU8-va 10/30/72 PAGE 34-2 

2573 05146 136S TAD (4 

2574 05147 5323 JMP EXPMUL-l 

2575 05150 1212 DOSIGN, TAD SIGN /CHECK THE SIGN 

2576 05151 7640 SZA CLA 

2577 05152 4764 JMS I (NE6FAC /NEGATE IF NEGATIVE 
2576 05153 2208 182 NUMBER /BUMP RETURN 

2579 05154 5600 JMP I NUMBER /RETURN 

2580 05155 0000 NXTD6T, 

2581 05156 7655 WSTEP, •123»-124»-105»-120 
2562 05157 7654 

2583 05160 7673 

2564 05161 7660 

2585 05162 0000 XADOf FADOIAFAOD 

2586 05163 6440 



/OS/8 BASIC COMPILER 



PAL6-V8 10/3k)/72 PAKE iS 



2587 






/ NUMERIC CONVERSION R 


258S 


05164 


5267 








2589 


05165 


0004 








2590 


05166 


5777 








2591 


05167 


5200 








2592 


05170 


5310 








2593 


05171 


5236 








259a 


05172 


00a3 








2595 


05173 


5a00 








2596 


0517a 


7722 








259T 


05175 


5353 








2598 


05176 


5431 








2599 


05177 


5444 








2600 




5200 




PAGE 




2601 


05200 


0000 


FPMUL, 







2602 


05201 


1134 




TAO 


MORDl 


2603 


05202 


1140 




TAD 


OPl 


2604 


05203 


3140 




OCA 


DPI 


2605 


0520a 


1135 




TAO 


M0R02 


2606 


05205 


3234 




DCA 


TW2 


2607 


05206 


1136 




TAD 


WOR03 


2608 


05207 


3235 




OCA 


TSN3 


2609 


05210 


1377 




TAO 


(-30 


2610 


05211 


3371 




OCA 


ITRCNT 


2611 


05212 


3135 




DCA 


W0RD2 


2612 


05213 


3136 




DCA 


W0R03 


2613 


052ia 


3137 




OCA 


ACO 


iblH 


0S21S 


4776 


MULLUPi 


JMS I 


(ARl 


2615 


05216 


1234 




TAD 


TW2 


2616 


05217 


7110 




CLL RAR 




2617 


05220 


3234 




DCA 


TW2 


2618 


05221 


1235 




TAO 


TW3 


2619 


05222 


7010 




RAR 




2620 


05223 


3235 




DCA 


TW3 


2621 


0522a 


7430 




8ZL 




2622 


05225 


4353 




JM5 


OAOO 


2623 


05226 


2371 




I8Z 


ITRCNT 


262a 


05227 


5215 




JMP 


MULtUP 


2625 


05230 


1140 




TAD 


OPl 


2626 


05231 


3134 




DCA 


WOROl 


2627 


05232 


4236 




JMS 


ANORM 


2628 


05233 


5600 




JMP I 


FPMUL 


2629 






D2» 






2630 


0523a 


0000 


TW2, 







2631 






03, 






2632 


05235 


0000 


TK3, 







2633 






NFCNT, 






263a 


05236 


0000 


ANORM, 







2635 


05237 


113S 




TAO 


W0RD2 


2636 


0S240 


7450 




SNA 




2637 


052ai 


1136 




TAD 


WDRD3 


2638 


0S2a2 


7450 




SNA 




2639 


052a3 


1137 




TAD 


ACO 


2640 


0524a 


7650 




SNA CLA 




26ai 


052a5 


5265 




JMP 


ZEXP 



/FLOATING MULTIPLY ROUTINE 
/COMPUTE NEW EXPONENT 



/SAVE AC MANTISSA 

/SET ITERATION COUNTER 
/ZERO FAC MANTISSA 



/SHIFT FAC RIGHT ONE 
/SHIFT MULTIPLIER RIGHT 



/ADD IF LINK IS ONE 

/BUMP COUNT 

/LOOP 

/PUT IN CORRECT EXPONENT 

/NORMALIZE THE RESULT 



/NORMALIZE FAC 
/IS MANTISSA ? 



/YES, ZERO EXPONENT 



/OS/8 BASIC COMPILER 



PALB-V8 10/30/72 PAGE 35-1 



2642 


05246 


7332 


NORMLP» 


CLA 


CLL 


CML RTR 


2643 


05247 


1135 




TAD 




M0RD2 


2644 


05250 


7440 




SZA 






2645 


05251 


5256 




JMP 




NO6000 


2646 


05252 


1136 




TAD 




M0R03 


2647 


05253 


7450 




SNA 






2648 


05254 


113T 




TAO 




ACQ 


2649 


05255 


7640 




SZA 


CLA 




2650 


05256 


7710 


NQ6000> 


SPA 


CLA 




2651 


05257 


5636 




JMP 


I 


AMORM 


2652 


05260 


4775 




JMS 


I 


(ALl 


2653 


05261 


7240 




CWA 


CMA 




2654 


05262 


1134 




TAD 




MOROl 


2655 


05263 


3134 




OCA 




MORDl 


2656 


05264 


5246 




JMP 




NORMLP 


2657 


05265 


3134 


ZEXP» 


DCA 




MOROl 


2658 


05266 


5636 




JMP 


I 


ANORM 


2659 


05267 


0000 


NEGFAC, 









2660 


05270 


1374 




TAD 




(ACQ 


2661 


05271 


3307 




OCA 




NFPTR 


2662 


05272 


7146 




CLU 


CMA 


RTL 


2663 


05273 


3236 




DCA 




NFCNT 


2664 


0S274 


7100 




CIL 






2665 


05275 


7004 


NFIOOP, 


RAL 






2666 


05276 


1707 




TAO 


I 


NFPTR 


2667 


05277 


7161 




CLL 


CML 


CIA 


2668 


05300 


3707 




DCA 


I 


NFPTR 


2669 


05301 


7260 




CML 


CLA 


CMA 


2670 


05302 


1307 




TAD 




NFPTR 


2671 


05303 


3307 




DCA 




NFPTR 


2672 


05304 


2236 




ISZ 




NFCNT 


2673 


05305 


5275 




JMP 




NFLOOP 


2674 


05306 


5667 




JMP 


I 


NECFAC 


2675 


05307 


0000 


NFPTR, 









2676 


05310 


0000 


FPDIV, 









2677 


05311 


4776 




JMS 


I 


(ARl 


2678 


05312 


1140 




TAD 




OPl 


2679 


05313 


7041 




CIA 






2680 


05314 


1134 




TAD 




WORDl 


2681 


05315 


3140 




OCA 




OPl 


2682 


05316 


1377 




TAD 




C-30 


2683 


05317 


3371 




DCA 




ITRCNT 


2684 


05320 


1135 




TAD 




W0RD2 


2685 


05321 


7004 




RAL 






2686 


05322 


7210 


FPOVUP» 


CUA 


RAR 




2687 


05323 


1141 




TAO 




0P2 


2688 


05324 


7710 




SPA 


CLA 




2689 


05325 


5330 




JMP 




.♦3 


2690 


05326 


1373 




TAD 




COPO-AC 


2691 


05327 


4267 




JMS 




NE6FAC 


2692 


05330 


4353 




JMS 




OADD 


2693 


05331 


1235 




TAD 




03 


269a 


05332 


7004 




RAL 






2695 


05333 


3235 




DCA 




03 


2696 


05334 


1234 




TAD 




02 



/IS HIGH ORDER MANTISSA s 6000 



/NO, SKIP THIS CRAP 
/YES» IS THE REST 7 



/SKIP IF 600000 ... 0000 

/NORM IS DONE WHEN BITS DIFFER 
/SHIFT LEFT ONE 
/DECREMENT EXPONENT 



/LOOP 



/NEGATE FAC 

/GET POINTER TO OPERAND 

/THREE MORO NEGATE 



/GET NEXT WORD 

/RESTORE AFTER COMPLEMENTING 
/LINK GETS COMPLEMENTED ONCE HERE 
/AND ONCE AGAIN HERE 
/RESTORE DECREMENTED POINTER 



/UNNORMALIZE AC BY ONE 
/COMPUTE FINAL EXPONENT 



/AND SAVE IT 

/SET ITERATION COUNTER 



/INITIALIZE LINK 
/COMPARE SIGNS 



/ADO OPERAND AND FAC 



/OS/fl BASIC COMPILER 



PAL6-V8 10/30/72 PAGE iS'i 



8697 0533S 7004 RAU 

S696 05336 3234 OCA 

2699 05337 4775 JMS I 

2700 05340 2371 ISZ 

2701 05341 5322 JMP 

2702 0S342 1140 TAO 

2703 05343 3134 DCA 

2704 05344 1234 TAD 

2705 05345 3135 DCA 

2706 05346 1235 TAO 

2707 05347 3136 OCA 

2708 05350 3137 OCA 

2709 05351 4236 JMS 

2710 05352 5710 JMP I 

2711 05353 0000 OADO, 

2712 05354 7100 CIL 

2713 0S355 1143 TAD 

2714 05356 1137 TAD 

2715 05357 3137 DCA 

2716 05360 7004 RAL 

2717 05361 1142 TAD 
271S 05362 1136 TAD 

2719 05363 3136 OCA 

2720 05364 7004 RAL 

2721 05365 1141 TAD 

2722 05366 1135 TAD 

2723 05367 3135 OCA 

2724 05370 5753 JMP I 

2725 05371 0000 ITRCNT, 



02 

(ALl 

ITRCNT 

FPDVLP 

OPl 

WOROl 

02 

M0RD2 

D3 

M0RD3 

ACQ 

ANORM 

FPOIV 



OPO 
ACO 
ACQ 

0P3 

W0RD3 

W0R03 

0P2 

W0R02 
M0R02 
OADD 



/LtFT SHIFT FAC ONE 
/TEST ITERATION COUNT 

/PUT QUOTIENT INTO FAC 



/NORMALIZE 

/ADD OPERAND TO FAC 



/OS/d BASIC COMPILER 



PAL6-V8 10/30/72 PAGE 36 



2726 






/ NUMERIC CONVERSION ROUTINE (FINALE) 


2727 


05373 


0004 












272a 


05374 


0137 












2720 


05375 


5431 












2T30 


05376 


5414 












2731 


05377 


7750 












2732 




5400 




PAGE 






2753 


05400 


0000 


SMLNUM, 









/INPUT A NUMBER <• 4095 


273a 


05401 


302S 


CXPLUP, 


OCA 




EXPON 


/ZERO THE EXPONENT 


2735 


05402 


4531 




JMS 


I 


QOIGIT 


/SET THE NEXT DIGIT 


2736 


05403 


5600 




JMP 


I 


SMLNUM 


/NUMBER DONE 


2737 


05404 


3143 




OCA 




OPO 


/SAVE THE DIGIT 


2738 


0S40S 


1025 




TAO 




EXPON 


/MULT BV 10 


2739 


05406 


7104 




CLL 


RAL 






2740 


05407 


7104 




CLL 


RAL 






2741 


05410 


1025 




TAO 




EXPON 




2742 


05411 


7104 




CLL 


RAL 






2743 


05412 


1143 




TAD 




OPO 


/ADO IN DIGIT 


2744 


05413 


5201 




JMP 




EXPLUP 


/STORE BACK INTO EXPONE 


2745 


05414 


0000 


ARl, 









/SHIPT PAC RIGHT 1 BIT 


2746 


05415 


1135 




TAO 




M0R02 




2747 


05416 


7U0 




CLL 


RAR 






2746 


05417 


3135 




OCA 




M0R02 




2749 


05420 


1136 




TAO 




W0R03 




2750 


05421 


7010 




RAR 








275i 


05422 


3136 




OCA 




W0RD3 




2752 


05423 


1137 




TAO 




ACQ 




2753 


05424 


7010 




RAR 








2754 


05425 


3137 




OCA 




ACO 




2755 


05426 


2134 




ISZ 




WORDl 




2756 


05427 


5614 




JMP 


I 


ARl 




2757 


05430 


5614 




JMP 


I 


ARl 




2750 


05431 


0000 


ALl, 









/SHIFT FAC LEFT ONE 


2759 


05432 


1137 




TAD 




ACO 




2760 


05433 


7104 




CLL 


RAL 






2761 


05434 


3137 




OCA 




ACO 




2762 


05435 


1136 




TAD 




WORDS 




2763 


05436 


7004 




RAL 








2764 


05437 


3136 




OCA 




W0RD3 




2765 


05440 


1135 




TAD 




M0RD2 




2766 


05441 


7004 




RAL 








2767 


05442 


3135 




OCA 




N0RD2 




2766 


05443 


5631 




JMP 


I 


ALl 




2769 


05444 


0000 


CHK8GN, 









/CHECK FOR SIGN 


2770 


05445 


1377 




TAD 




(-55 


ns IT - ? 


2771 


0S446 


7450 




SNA 








2772 


05447 


2644 




ISZ 


I 


CHKS6N 


/YES, SET SWITCH 


2773 


05450 


7440 




SZA 








2774 


05451 


1376 




TAD 




(55-53 


/IS IT ♦ ? 


2775 


05452 


7640 




SZA 


CLA 






2776 


05453 


452S 




JMS 


I 


QBACKl 


/RETURN CHAR OTHERWISE 


2777 


05454 


5644 




JMP 


I 


CMKSSN 





/OS/8 BASIC COMPILEK 



PAt6-V8 10/30/72 PAGE 3/ 



2778 






/ STRING LITERAL SCANNER 


2779 


05455 


zzm 


STRING, 









/LOOK FOR A STRING 


2780 


05456 


45li 




JMS 


I 


QCHECKC 


/LOOK FOR " 


2781 


05457 


7736 


M42, 


-42 








2782 


05460 


5655 




JMP 


I 


STRING 


/NONE MEANS NO STRING 


2783 


05461 


2255 




ISZ 




STRING 




2784 


05462 


3134 




OCA 




WORDl 


/ZERO CHAR COUNT 


2T85 


05463 


1375 




TAD 




(W0RD2 


/SETUP POINTER 


2786 


05464 


3021 




OCA 




TEMP 




2787 


05465 


1374 




TAD 




(-44 


/AND MAX SIZE 


2788 


05466 


3022 




DCA 




TEMP2 




2789 


05467 


4320 


SLOOPf 


JMS 




GCS 


/GET HIGH ORDER CHArt 


2790 


05470 


5655 




JMP 


I 


STRING 


/END OF STRING 


2791 


05471 


7106 




CLL 


RTL 






2792 


05472 


7006 




RTL 








2793 


05473 


7006 




RTL 








2794 


05474 


3421 




DCA 


I 


TEMP 


/PUT INTO UPPER HALF OF WQRO 


2795 


05475 


4320 




JM5 




GCS 


/GET LOWER CHAR 


2796 


05476 


5314 




JMP 




PUT40 


/FILL LAST WORD WITH BLANK 


2797 


05477 


1421 




TAD 


I 


TEMP 


/COMBINE THEM 


2798 


05500 


3421 




DCA 


I 


TEMP 




2799 


05501 


2021 




ISZ 




TEMP 


/BUMP POINTER 


2800 


05502 


2022 




ISZ 




TEMP2 


/TOO BIG YET ? 


2801 


05503 


5267 




JMP 




SLOOP 


/NO, LOOP 


2802 


05504 


4502 




JMS 


I 


06ETC 


/MAX SIZE STRING, MUST FIND " 


2803 


05505 


5311 




JMP 




STRGER 


/BAD STRING LITERAL 


2804 


05506 


1257 




TAD 




M42 




2805 


05507 


7650 




SNA 


CLA 






2806 


05510 


5655 




JMP 


I 


STRING 


/OK 


2807 


0S511 


4473 


STRGER, 


JMS 


I 


QERMSG 


/STRING ERROR 


2806 


05512 


2123 




2123 






2809 


05513 


5655 




JMP 


I 


STRING 




2810 


05514 


1421 


PUT40, 


TAD 


I 


TEMP 


/GET LAST WORD 


2811 


05S1S 


1373 




TAD 




(40 


/PUT BLANK IN LOW CHAR 


2812 


05516 


3421 




DCA 


I 


TEMP 


/STORE NEW WORD 


2813 


05517 


5655 




JMP 


I 


STRING 


/RETURN 


2814 


05520 


0000 


GCS, 









/GET A CHAR FOR STRING 


2815 


05521 


4503 




JMS 


I 


QGETCWB 


/GET A CHAR (INCLUDE BLANKS) 


2816 


05522 


5311 




JMP 




STRGER 


/BAD 


2817 


05523 


1257 




TAD 




M42 


/IS IT " 


2818 


05524 


7440 




SZA 








2819 


05525 


5335 




JMP 




NOTQOT 


/NO 


2820 


05526 


4503 




JMS 


I 


QGETCMB 


/IS IT "" 


2821 


05527 


5720 




JMP 


I 


GCS 


/NO, THAT WAS IT 


2822 


05530 


1257 




TAD 




M42 


/LOOK FOR SECOND " 


2823 


05531 


7650 




SNA 


CLA 






2824 


05532 


5335 




JMP 




NOTQOT 


/"" BECOMES " 


282S 


05533 


4525 




JMS 


I 


QBACKl 


/PUT IT BACK 


2826 


05534 


5720 




JMP 


I 


SCS 


/LITERAL IS DONE 


2627 


05535 


1372 


NOTQOT, 


TAD 




(42 


/RECREATE CHAR 


2628 


05536 


0371 




AND 




(77 


/ELIMINATE EXTRA BITS 


2629 


05537 


2134 




ISZ 




MOROt 


/BUMP STRING COUNT 


2830 


05540 


2320 




ISZ 




GCS 


/FIX RETURN 


2631 


05541 


5720 




JMP 


I 


GCS 




2632 


05542 


0000 


MODSET, 









/SET INTERPRETER MODE 



/OS/8 BASIC COMPIUEK 



aS33 


05543 


105S 


2SS4 


0S544 


7700 


2835 


05545 


5742 


2836 


05546 


105S 


2837 


05547 


7640 


2838 


05550 


1370 


2839 


05551 


1367 


2640 


05552 


4500 


2841 


05553 


7130 


2842 


05554 


1055 


2843 


05555 


3055 


2844 


05556 


5742 


2845 


05557 


3400 


2846 


05560 


6740 


2847 


05561 


7660 


2848 


05562 


7662 


2849 


05563 


7654 


28S0 


05564 


7730 


2851 


05565 


0000 



XIDIV, 



# 



PAL8-V8 10/30/72 PAGE 37-1 

TAD MODE /SUM OF DESIRED AND CURRENT 

SMA CUA 

JMP I M0D8ET /THEV WERE THE SAME 

TAD MODE /OTHERWISE SWITCH MODES 

SZA CLA 

TAD (NMOOE-SMODE 

TAD (8M00E /ENTER NMOOE OR MAYBE SMOOE 

JMS I QOUTWRD 

CUi. CML RAR 

TAD MODE /CHANGE THE SWITCH 

DCA MODE 

JMP 1 MODSET /AND RETURN 

PIOIVIAIOIV 



WPNTi •120r-116l-124|>50l0 
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2SS2 

2853 

285a 

2855 

2856 

2857 

S&5S 

2859 

2860 

2861 

2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

290ei 

2901 
2902 
2903 
2904 
2905 
2906 



05567 
05570 
05571 
05572 
05573 
05574 
05575 
05576 
05577 

05600 

05601 

05602 

05603 

05604 

05605 

05606 

05607 

05610 

05611 

0S612 

05613 

05614 

05615 

05616 

05617 

05620 

05621 

05622 

05623 

05624 

05625 

05626 

05627 

05630 

05631 

05632 

05633 

05634 

05635 

05636 

05637 

05640 

05641 

05642 

05643 

05644 

05645 

05646 

05647 

05650 

05651 

05652 

05653 



7561 

7760 

0077 

0042 

0040 

7734 

0135 

0002 

7723 

5600 

0000 

3026 

4530 

5600 

3134 

4531 

5235 

7001 

3135 

4502 

5233 

1377 

7440 

5224 

7130 

1026 

3026 

4502 

5233 

1377 

1376 

7650 

7132 

7450 

4525 

1026 

3026 

2200 

5600 

4501 

1134 

7106 

7006 

7006 

3135 

4530 

5210 

1135 

3135 

4530 

5302 

3136 

1135 

1375 



/ VARIABLE OR FUNCTION HEFfckENCE SCANNER 



GETNAMi 



UFDOLR, 



N05TR6, 



GOTNAMi 



TRYFUN, 



PAGE 



OCA 

JM8 I 

JMP I 

DCA 

JMS 1 

JMP 

lAC 

OCA 

JMS I 

JMP 

TAD 

SZA 

JMP 

CUL CML 

TAD 

OCA 

JMS I 

JMP 

TAD 

TAD 

SNA CLA 

CLU CML 

SNA 

JMS I 

TAD 

OCA 

ISZ 

JMP I 

JMS I 

TAD 

CLL RTL 

RTL 

RTL 

OCA 

JMS I 

JMP 

TAD 

DCA 

JMS I 

JMP 

OCA 

TAD 

TAD 



/LOOK FOR VARIABLE OR FUNCT REFNCE 
TYPE /ZERO TYPE 
QLETTER /MUST START WITH LETTER 
GETNAM /NO NAME 
NAMEl 

QOIGIT /<LETTER»<OIGIT> 7 
TRYFUN /NO, LOOK FOR FUN REF 

/INCREMENT DIGIT 
NAME2 /STORE AS NAME2 
QGETC /LOOK FOR S tSTRING) 
G0TNAM*2/N0T THERE 
(-44 

NOSTRG /NO S MEANS NO STRING 

RAR /SET STRING BIT 

TYPE 

TYPE 

QGETC /LOOK FOR ( tARRAY) 

G0TNAM*2/NAME FINI 

(-44 /PRIME THE CHAR 

(44-50 /LOOK FOR ( (ARRAY! 

RTR /YES, SET ARRAY BIT 



OBACKl 

TYPE 

TYPE 

GETNAM 

GETNAM 

QSAVECP /SAVE CHAR POSITION 

NAMEl /MOVE FIRST CHAR OVER 



/NO, BACKUP 1 CHAR 
/MODIFY TYPE 

/BUMP RETURN 



NAME2 

QLETTER /LOOK FOR SECOND LETTER 

LFOOLR /NONE THERE, LOOK FOR S 

NAME2 /COMBINE WITH FIRST LETTER 

NAME2 

QLETTER /LOOK FOR THIRD LETTER 

NOFNAM /NOT A FUNCTION NAME 

NAME3 /PUT INTO NAME 

NAME2 /IS IT A USER FUNCT ? 

(-616 /FN 



/OS/8 BASIC COMPILER 
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2907 

2906 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

291S 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 



05654 

05655 

05656 

05657 

05660 

05661 

05662 

05663 

05664 

05665 

05666 

05667 

05670 

05671 

05672 

05673 

05674 

05675 

05676 

05677 

05700 

05701 

05702 

05703 

05704 

05705 



7650 
5304 
1374 
3010 
1410 
7450 
5302 
1135 
7640 
5277 
1410 
1136 
7640 
5300 
1410 
3027 
1373 
3026 
5210 
2010 
2010 
5260 
4504 
5210 
1136 
5273 



SNA CLA 

JMP 

TAD 

DCA 
FUNSRC, TAD I 

SNA 

JMP 

TAD 

SZA CLA 

JMP 

TAD I 

TAD 

SZA CLA 

JMP 

TAD I 
PUNQK, DCA 

TAD 

DCA 

JMP 
NOMATCf ISZ 

ISZ 

JMP 
NOFNAMf JMS I 



U8RFUN /YES 

(FUNS-l /NO, CHECK VALIDITY OF NAME 

X10 

X10 /GET NEXT FUN NAME 

NOFNAM /END OF LIST, INVALID NAME 

NAME2 /COMPARE FIRST 2 CHARS 

NOMATC /THEY DON'T MATCH 

X10 /COMPARE 3RD CHAR 
NAMES 



USRFUN, 



JMP 
TAD 
JMP 



N0MATC«1 

X10 

SYMBOL 

(1000 

TYPE 

LFOOLR 

X10 

X10 

FUNSRC 

QRE8TCP 

LFDOLR 

NAME3 

FUNOK 



/DON*T MATCH 
/GET FUNCTION CODE 
/SAVE IT AS SYMBOL VALU 
/SET FUNCTION BIT 

/LOOK FOR QS] 0(1 
/SKIP THIRD CHAR 
/SKIP FUNCTION NUMBER 
/KEEP LOOKING 
/RESTORE CHAR POS 
/LOOK FOR OS] Q(J 
/GENERATE FUN NUMBER 



/QS/B 


BASIC C 


OMPRE 


H 




PAL8-V8 


10/30/72 PAGE i<i 


2933 






/ ESROf 


> MESSAGE 


REPORTER 


2934 


05706 


000iij 


ERMSG, 









/PRINT ERHO« MESSAGt 


2935 


05707 


7200 




CLA 








293b 


05710 


6201 




CDF 








2937 


B5711 


1706 




TAD 


I 


ERMSG 


/GET CODE 


2938 


05712 


7112 




CLL 


RTR 




/PRINT FIRST CHAR 


2939 


05713 


7012 




RTR 








2940 


05714 


7012 




RTR 








2941 


05715 


4772* 




JM8 




TTY 




2942 


05716 


1706 




TAD 


I 


ERMSG 


/PRINT SECOND CHAR 


2943 


05717 


4772* 




JHS 




TTY 




2944 


05720 


2306 




ISZ 




ERMSG 


/FIX RETURN AQDR 


2945 


05721 


1350 




TAD 




SPACE 


/PRINT SPACE 


2946 


05722 


4772' 




JMS 




TTY 




2947 


05723 


3772' 




DCA 




TTY 


/USE TTY AS A SWITCH 


2946 


05724 


1053 




TAD 




LINEH 


/PRINT HIGH ORDER 


2949 


05725 


4335 




JMS 




PSN 




2950 


05726 


1054 




TAD 




LINEL 


/THEN LOW ORDER 


2951 


05727 


4335 




JMS 




PSN 


/(LINE NUMBER NATCH I) 


2952 


05730 


1371 




TAD 




(215 


/PRINT CARRIAGE RETURN 


2953 


05731 


4770' 




JMS 




TTX 




2954 


05732 


1367 




TAD 




(212 


/PRINT LINE FEED 


2955 


05733 


4770' 




JMS 




TTX 




2956 


05734 


5706 




JMP 


I 


ERMSG 


/RETURN 


2957 


05735 


0000 


PSN, 









/PRINT 3 DIGITS DECIMAL 


2958 


05736 


313S 




OCA 




M0RD2 




2959 


05737 


7146 




CLU 


CMA 


RTL 


/-3 


2960 


05740 


3021 




DCA 




TEMP 




2961 


05741 


1135 


PRNTSN, 


TAD 




i^0R02 


/GET NEXT DIGIT 


2962 


05742 


7106 




CLL 


RTL 




/INTO THE LOW ORDER 


2963 


05743 


7006 




RTL 






/THKEE BITS AND THE LIN 


2964 


05744 


3135 




DCA 




W0RD2 


/SAVE SHIFTED NUMBER 


2965 


05745 


1135 




TAD 




M0R02 


/NOW DO LAST SHIFT 


2966 


05746 


7004 




RAL 








2967 


05747 


0366 




AND 




(17 


/ONLY FOUR BITS 


296S 


05750 


7440 


SPACE, 


SZA 








2969 


05751 


5355 




JMP 




NOZERO 


/NOT A ZERO 


2970 


05752 


1772' 




TAD 




TTY 


/ANY DIGITS YET 7 


2971 


05753 


765ia 




SNA 


CLA 






2972 


05754 


5357 




JMP 




LEAD0 


/NO, ITS A LEADING ZERO 


2973 


0575S 


1365 


NOZEHO, 


TAD 




(60 


/MAKE IT ASCII 


2974 


05756 


4772' 




JMS 




TTY 


/PRINT DIGIT 


2975 


05757 


2021 


LEAO0, 


ISZ 




TEMP 


/BUMP COUNT 


2976 


05760 


5341 




JMP 




PRNTSN 


/MORE OIGITCS) 


2977 


05761 


5735 




JMP 


I 


PSN 




2978 


05762 


1000 


XMUL, 


FMPVIAFMPY 




2979 


05763 


b'im 
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2981 


05765 


0060 


2982 


05766 


0017 


2983 


05767 


0212 


298a 


05770 


3740 


2985 


05771 


0215 


2986 


05772 


3730 


2987 


05773 


1000 


2988 


05774 


6070 


2989 


05775 


7162 


2990 


05776 


7774 


2991 


05777 


7734 


2992 




6000 


2993 


06000 


0004 


2994 


06001 


2400 


2995 


06002 


0000 


2996 


06003 


0000 


2997 


06004 


0007 


2998 


06005 


3100 


2999 


06006 


0000 


3000 


06007 


0000 


3001 


06010 


0016 


3002 


06011 


2342 


3003 


06012 


0000 


3004 


06013 


0000 


3005 


06014 


0033 


3006 


06015 


2765 


3007 


06016 


7020 


3008 


06017 


0000 


3009 


06020 


0066 


3010 


06021 


2160 


3011 


06022 


6744 


3012 


06023 


6770 


3013 


06024 


0153 


3014 


06025 


2356 


3015 


06026 


1326 


3016 


06027 


6501 


3017 


06030 


032S 


3018 


06031 


3023 


3019 


06032 


6017 


3020 


06033 


5120 


3021 


06034 


0652 


3022 


06035 


223S 


3023 


06036 


6443 


3024 


06037 


7114 


3025 


06040 


1523 


3026 


06041 


2523 


3027 


06042 


7565 


3028 


06043 


7735 


3029 


06044 


3245 


3030 


06045 


3430 


3051 


06046 


6320 


3032 


06047 


2S6S 



/ EXPONENT TABLE 



PASE 
PETABUf 00041240010000)0000 



0007l3100>0000f0000 



00161234210000)0000 



0033)2765)7020)0000 



0066)2160)6744)6770 



0153)2356)1326)6501 



0325)3023)6017)5120 



0652)2235)6443)7114 



1523)2523)7565)7735 



3245)3430)6320)2565 



/OS/8 BASIC COMPILER 
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3033 






/ OPERATOR TABLE 


3034 


06050 


2557 


OPRflNS, 


PLUS»-53 


3035 


06051 


7725 






303(> 


06052 


2755 




MINUSl-55 


3037 


06053 


7723 






303B 


06054 


0356 




STARI.52 


3039 


06055 


7726 






3040 


060S6 


2761 




SLASHj-57 


3041 


06057 


T721 






3042 


06060 


0362 




UPAR0w;<»136 


3043 


06061 


7642 






3044 


06062 


1557 




AMPSND>-46 


304S 


06063 


7732 






3046 


06064 


0000 







3047 


06065 


4000 


SASIGN, 


4000MSTOR 


3048 


06066 


4301 






3049 


06067 


0000 


ASSIGN, 


0MSTOR 


3050 


06070 


4301 
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3051 






S052 


06071 


7676 


3053 


06072 


7755 


3054 


06073 


7400 


3055 


06074 


765S 


3056 


06075 


7775 


3057 


06076 


7417 


3058 


06077 


7654 


3059 


06100 


7762 


3060 


06101 


7416 


3041 


06102 


7470 


3068 


06103 


7756 


3063 


06104 


7437 


306a 


06105 


7461 


3065 


06106 


7755 


3066 


06107 


7436 


3067 


06110 


7377 


3068 


06111 


7754 


3069 


06U2 


7457 


3070 


06113 


7250 


3071 


06114 


7760 


3072 


06115 


7456 


3073 


06116 


6662 


3074 


06117 


7754 


307S 


06120 


7516 


3076 


06121 


6373 


3077 


06122 


7762 


3078 


06123 


7477 


3079 


06124 


6361 


3080 


06125 


7771 


3081 


06126 


753fc 


3082 


06127 


5761 


3083 


06130 


7755 


3084 


06131 


7517 


3085 


06132 


5562 


3086 


06133 


7774 


3087 


06134 


7616 


3086 


06135 


5473 


3089 


06136 


7771 


3090 


06137 


7537 


3091 


06140 


5471 


3092 


06141 


7762 


309S 


06142 


7556 


3094 


06143 


5467 


3095 


06144 


7762 


3096 


06145 


7576 


3097 


06146 


5457 


3098 


06147 


7756 


3B99 


06130 


7636 


3100 


06151 


5454 


3101 


06152 


7756 


3102 


06153 


7557 


3103 


06154 


5177 


3104 


06155 


7764 


3105 


06156 


7577 
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/ FUNCTION NAME TABLE (INTERNAL FUNCTIONS) 
FUNS, >>0102l-23|FUNC3 



•>0123>-03|FUNC2 



•0124|-16rFUNCl 



•0310|«22rPUNC2<»20 



• 03l7f<i23fFUNCl«20 



>040U*24>FUNC24>40 



•0530|-20)FUNC1«40 



-1116r«24fFUNCl4'100 



'1405)»16|FUNC2'»60 



• 1417|*07rFUNCU120 



•2017r«23rFUNC2«100 



>2216|-04fFUNCl*200 



-2305;«07>FUNC24>120 



>2307>-16>FUNCl«140 



•23llf«16|FUNCltl60 



-2321I-22IFUNCU220 



•2324r*22|FUNC2^140 



•260U«14;FUNC2«160 
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3106 


06157 


5356 


3107 


06160 


7775 


310B 


06161 


7637 


310'5 


06162 


0000 


3110 


06163 


0000 


3111 


06164 


7415 


3112 


06165 


0000 


3113 


06166 


0000 


3114 


06167 


7435 


3115 


06170 


0000 


3116 


06171 


0000 


3117 


06172 


7455 


3116 


06173 


0000 


3119 


06174 


0000 


3120 


06175 


7475 


3121 


06176 


0000 


3122 


06177 


0000 


3123 


06200 


7515 


3124 


06201 


0000 


3125 


06202 


0000 


3126 


06203 


7535 


3127 


06204 


0000 


3128 


06205 


0000 


3129 


06206 


7555 


3130 


06207 


0000 


3131 


06210 


0000 


3132 


06211 


7575 


3133 


06212 


0000 


3134 


06213 


0000 


3135 


0621a 


7615 


3136 


06215 


0000 


3137 


06216 


0000 


3138 


06217 


7635 


3139 


06220 


0000 


3140 


06221 


0000 


3141 


06222 


7655 


3142 


06223 


0000 


3143 


06224 


0000 


3144 


06225 


7675 


3145 


06226 


0000 


3146 


06227 


0000 


3147 


06230 


7715 


3148 


06231 


0000 


3149 


06232 


0000 


3150 


06233 


7735 


3151 


06234 


0000 


3152 


06235 


0000 


3153 


06236 


7755 


3154 


06237 


0000 


3155 


06240 


0000 


3156 


06241 


7775 


3157 


06242 


0000 
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■ 2422;-03;FUNC2»2«J0 



ENDFMS, 0»0»FUNC4 

0;0»FUNC4*20 

0>0|FLiNC4>40 

0|0;FUNC4460 

0r0fFUNC4«100 

0)0>FUNC4*120 

0>0>FUNC44>140 

0I0;FUNC4«160 

0f0>PUNC4*200 

0>0;FUNC4'»220 

0I0|FUNC«*240 

0I0IFUNC44-260 

0I0>FUNC4^300 

0I0;FUNC4«320 

0;0;FUNC44i340 



/SPACE FOH NEW FUNCTIONS 



0;0>FUNC4+3fe0 /SIXTEEN OF THEM 
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06243 






06244 






06245 






06246 






06247 






06250 






06251 






06252 






06253 






06254 






06255 






06256 






06257 






06260 






06261 






06262 






06263 






06264 






0626S 






06266 






06267 






06270 






06271 






06272 






06273 






06274 






06275 






06276 






06277 






06300 






06301 






06302 






06303 






06304 






06305 






06306 






06307 






06310 






06311 






06312 






06313 






06314 






06315 




3202 


06316 




3203 


06317 




32ea 


06320 




3205 


06321 




320(> 


06322 




3207 


06323 




3208 


06324 




3209 


06325 




3210 


06326 




3211 


06327 




3212 


06330 


1431 



/ KEYWORD LIST 

KEYWRD, -114|-10S)«124|LET 



•>llll-106|-10S|oll6»-104nFENO 



•111I-106)IF 



-106r>117r"122tPOR 



•116f*10S>«130>-124|NEXTX 



MGOTO» •107I-117 
MTOf "124>«117>60T0 



•1071-1 17 >-123t-125;-102;GOSUB 



•111>-116»-120>-125|-124»INPUT 



-1201-1221-1 11 1-1 16I-124IPRINT 



«104|-llU-115fOIM 



•1041 -1011 -124I.101IDATA 
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3213 


06331 


7674 


3214 


06332 


7673 


3215 


06333 


7672 


3216 


06334 


1200 


3217 


06335 


7672 


321S 


06336 


7667 


3219 


06337 


7664 


3220 


06340 


7673 


3221 


06341 


2522 


3222 


06342 


7656 


3223 


06343 


7673 


322a 


06344 


7677 


3225 


06345 


7674 


3226 


06346 


1526 


3227 


06347 


7656 


322B 


06350 


7673 


3229 


06351 


7663 


3230 


06352 


0205 


3231 


06353 


7656 


3232 


06354 


7673 


3233 


06355 


7655 


3234 


06356 


7654 


3235 


06357 


7661 


3236 


06360 


7656 


3237 


06361 


7673 


3238 


06362 


0542 


3239 


06363 


7656 


3240 


06364 


7673 


3241 


06365 


7654 


3242 


06366 


7653 


3243 


06367 


7656 


3244 


06370 


7662 


3245 


06371 


3561 


3246 


06372 


7655 


3247 


06373 


7654 


3248 


06374 


7661 


3249 


06375 


7660 


3250 


0637«. 


3565 


3251 


06377 


7656 


3252 


06400 


7677 


3253 


061101 


7662 


3254 


06402 


7674 


3255 


06403 


7661 


3256 


06404 


7663 


3257 


06405 


7667 


3258 


06406 


7646 


3259 


06407 


7673 


3260 


06410 


3564 


3261 


064U 


7675 


3262 


06412 


7664 


3263 


06413 


7661 


3264 


06414 


7655 


3265 


06415 


7673 


3266 


06416 


3342 


3267 


06417 


7675 
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-104I-105I-106JOEF 

■.106l-lH>-114f-105;FILE 

-1221 -105; -1011 -1041 RE AOX 

•122»-Ia5»-115?REMARK 

• 122»-105|-123>-124»-117»-122>=»105>RESTOR 



•122»-105>-124»-125;-122»-116JRETURN 



>123>-124»-H7;-120)STOPX 



•122>-10n-116l-ia4;-H7;-115»-Hl»-l32;-105>RANOOM 



•103»-H4»-117|-123>-105» CLOSE 



■103;-110>-101»-111>-116JCHAIN 



/OS/8 BASIC COM|»XLiR 



# 



PAL8-V8 10/30/72 PAGE 43-2 



32^8 


06420 




3269 


06421 






06422 






06423 






06424 






06425 






06426 






06427 






06430 






06431 






06432 






06433 






06434 






06439 






06436 






06437 






06440 






06441 






06442 


0000 



• 1251 -1041 •il0S|>106fUDEF 



•12S|-12S|-10StU8EX 



•il0S|«116|«104tEND 



/OS/e BASIC COMPILEH 
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3287 






/ OS-B 


OUTPUT ROUTINE 




3288 


06443 


0000 


OKTEMP, 









3289 


06444 


0000 


OUPTR, 


OUBUF 






3290 


0644S 


7377 


OCOUNT, 


-401 






3291 


06446 


0000 


OUTWRO, 







/OUTPUT ROUTINE 


3292 


06447 


3243 




OCA 


OWTEMP 


/SAVE WORD 


3293 


06450 


2045 




ISZ 


LOCTRL 


/INCREMENT PSEUDO CODE 


3294 


06451 


7410 




SKP 




/LOCATION COUNTER 


3295 


06452 


2044 




ISZ 


LOCTRH 


/BOTH HALVES 


3296 


06453 


7000 




NOP 




/IT'LL NEVER HAPPEN 


3297 


06454 


2245 




ISZ 


OCOUNT 


/TEST FOR BUFFER FULL 


3298 


06455 


5263 




JMP 


NOWRIT 


/STILL SOME ROOM 


3299 


06456 


4271 




JMS 


OUOUMP 


/DUMP THE BUFFER 


3300 


06457 


1274 




TAD 


OUBLOK- 


l/RESET BUFFER PARAMETERS 


3301 


0646(9 


3244 




DCA 


OUPTH 




3302 


06461 


1377 




TAD 


(-400 




3303 


06462 


3245 




DCA 


OCOUNT 




3304 


06463 


1245 


NQMRIT, 


TAD 


OWTEMP 


/PUT WORD 


3305 


06464 


6211 




CDF 


10 




3306 


06465 


3644 




OCA I 


QUPTR 


/INTO BUFFER 


3307 


06466 


6201 




COf 






3308 


06467 


2244 




ISZ 


OUPTR 


/MOVE POINTER 


3309 


06470 


5646 




JMP I 


OUTWRD 




3310 


06471 


0000 


OUOUMP, 







/DUMP OUT BUFFER 


3311 


06472 


4776 




JMS I 


(7607 


/CALL OUTPUT HANDLER 


3312 


06473 


4210 




4210 






3313 


06474 


0000 




0U9UF 






3314 


06475 


0000 


OUBLOK, 









3315 


06476 


5302 




JMP 


OUERR 




3316 


06477 


2275 




ISZ 


OUBLOK 


/INCREMENT BLOCK NUMBER 


3317 


06500 


2306 




ISZ 


OUSIZE 


/CHECK FOR HOLE FULL 


3318 


06501 


5671 




JMP I 


OUOUMP 




3319 


06502 


4473 


OUERR, 


JMS I 


QERMSG 


/OUTPUT FILE ERROR 


3320 


06503 


1706 




1706 






3321 


06504 


5406 




JMP I 


XABORT 


/ABORT COMPILATION 


3322 


06505 


0000 


ODEVH, 









3323 


06506 
06507 


0000 
4313 


OUSIZE. 









3324 


AMPRTN, 


JMi ""' 


Tool ST 


/LOAD OPIS 


3325 


06510 


1561 




AMPSND+2 


/CONC 0P2S 


3326 


06511 


4313 


SCRTN, 


JMS 


LODIST 


/LOAD OPIS 


3327 


06512 


6570 




SCOMPR+1 


/COMP 0P2$ 


3328 


06513 


0000 


LOOIST, 







/HANDLE ONE WAY INSTRUCTIONS 


3329 


06514 


4524 




JMS I 


QSAVAC 


/STORE 2ND ARG IF IN SAC 


3330 


06515 


7777 




-1 






3331 


06516 


7240 




CLA CMA 




/GET TYPE OF 2N0 ARG 


3332 


06517 


1014 




TAD 


OSTACK 




3333 


06520 


3021 




OCA 


TEMP 




3334 


06521 


7132 




CUl CML 


RTR 


/IS IT SUeSCBIPTED 7 


3335 


06522 


0421 




AND I 


TEMP 




3336 


06523 


7650 




SNA CLA 






3337 


06524 


5331 




JMP 


SKIP2 


/NO, ENTRY IS ONLY 2 WORDS 


3338 


06525 


1421 




TAO I 


TEMP 


/GET NUMBER OF OlMS 


333"? 


06526 


0367 




ANO 


SCOMPH 


/LITERAL 3 


3340 


06527 


7104 




CLL RAL 




/DOUBLE IT 


3341 


06530 


7041 




CIA 







# 
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06531 


1375 


SKIP2, 


TAD 




(-2 


/PINO SIZE OF 2N0 ARC 




06S32 


3354 




OCA 




0P2SIZ 


/AND SAVE IT 




06533 


10l« 




TAD 




08TACK 


/BACK UP STACK 




06534 


1354 




TAD 




0P28IZ 






06535 


3014 




DCA 




OSTACK 






06536 


1014 




TAD 




08TACK 


/AND SAVE THIS ADOR 




06537 


3012 




DCA 




)(12 






06540 


4520 




JM8 


I 


OlOAD 


/LOAD ARS 1 




06541 


7130 




cu 


CMU 


RAR 


/OET TYPE BIT 




06542 


0056 




AND 




TYPEl 


/PUT BACK AR61 




06543 


1133 




TAD 




Q400 






06544 


3414 




DCA 


I 


OSTACK 






06545 


3414 




DCA 


I 


OSTACK 






06546 


1412 




TAD 


I 


K12 


/PUT BACK ARG 2 




06547 


3414 




DCA 


I 


OSTACK 






06550 


2354 




I8Z 




0P2SIZ 






06551 


5346 




JMP 




.-3 






06552 


1713 




TAD 


I 


U0018T 


/GET OPERATOR FINISH 




06553 


5774* 




JMP 




OUTOPR* 


1/GO FINISH CODE 




06554 


0000 


0P2SIZ, 









/SACREO COUNT WORD 




06555 


0000 


CHCCKC, 









/CHAR CHECKER 




06556 


4502 




JMS 


I 


QGETC 


/GET A CHARACTER 




06557 


5365 




JMP 




.♦6 


/FAILED 




06560 


1755 




TAD 


I 


CHECKC 


/COMPARE 




06561 


7450 




SNA 










06562 


2355 




ISZ 




CHECKC 


/MATCHES, SKIP TWO 




06563 


7640 




8ZA 


CL.A 








06564 


4529 




JMS 


I 


QBACKl 


/NO MATCH, REPLACE 




06565 


2353 




ISZ 




CHECKC 


/ALWAYS SKIP AT LEAST 




06566 


5755 




JMP 


I 


CHECKC 






06567 


0003 


8C0MPR, 


3I8CBTN 


■S) 40001 XSCOHPIXSCOHP 




06570 


6506 














06571 


4000 














06572 


6734 














06573 


6734 
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3377 
3378 
337'» 
3380 
3381 
3382 
3383 
3384 
338S 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
339S 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
340S 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
342S 
3426 
3427 
3428 
3429 
3430 
3431 



/ OS-8 FILE INPUT ROUTINE 



06574 
06575 
06576 
06577 

06600 
06601 
06602 
06603 
06604 
06605 
06606 
06607 
06610 
06611 
06612 
06613 
06614 
06615 
06616 
06617 
06620 
06621 
06622 
06623 
06624 
06625 
06626 
06627 
06630 
06631 
06632 
06633 
06634 
06635 
06636 
06637 
06640 
06641 
06642 
06643 
06644 
06645 
06646 
06647 
06650 
06651 
06652 
06653 
06654 
06655 
06656 
06657 
06660 



3401 
7776 
7607 
7400 
6600 
0000 
2255 
2330 
5255 
1327 
7640 
5233 
1332 
7101 
7420 
3332 
7430 
2327 
4731 
0200 

7200 

0000 

5232 

2220 

1377 

3330 

120i 

3255 

1217 

3333 

5201 

7200 

4473 

1505 

1376 

3775* 

1374 

3773' 

6211 

1772' 

6201 

7450 

5773* 

3252 

4771' 

1600 

0000 

0000 

7402 

5770' 

7402 

5277 

5273 

1203 



ICHAP, 
INJMPP, 

INGBUFf 



INBUFP, 
INREC, 

INBREC, 



INERR, 
ENDFIL, 

ABORT, 



EOTBLK, 
INJMP, 

ICHAB3, 



PAGE 



ISZ 

ISZ 

JMP 

TAD 

SZA CUA 

JMP 

TAD 

CUL lAC 

SNL 

OCA 

SZL 

ISZ 

JMS I 

0200 

INBUF 



JMP 

ISZ 

TAO 

OCA 

TAD 

OCA 

TAD 

OCA 

JMP 

CLA 

JMS 1 

1505 

TAD 

OCA 

TAO 

OCA 

CDF 

TAD 

CDF 

SNA 

JMP 

OCA 

JMS 

EOTSIZ 





HLT 

JMP 

HLT 

JMP 

JMP 

TAO 



INJMP 
INCHCT 
INJMP 
INEOF 

ENOFIL 
INCTR 



/READ CHAR FROM INPUT FILE 
/BUMP THREE WAY UNPACK SWITCH 



/LAST READ YEILD END OF FILE ? 

/YES 

/BUMP RECORD COUNTER 



INCTR /RESTORE IF IT HASN'T OVERFLOWED 



INEOF 
INHNOL 



INERR 

INREC 

(-601 

INCHCT 

INJMPP 

INJMP 

INBUFP 

INPTR 

ICHAR*1 

QERMSG 

(4207 

7600 

(6213 

7605 

10 

INFO 



7605 

EDTBLK 

7607 



EDTBGN 

ICHARl 
ICHAR2 

INJMPP 



/SET ENO OF FILE SWITCH 

/DO THE READ 

/ONE BLOCK TO FIELD 



/HANDLER ERROR 
/BUMP RECORD NUMBER 
/SET CHAR COUNT 

/RESET THREE WAY JUMP SWITCH 

/RESET BUFFER POINTER 

/GO AGAIN 

/INPUT FILE ERROR 

/RESTORE -C LOCZTIONS 



/GET START OF BASIC. SV 



/T'WERE RUNNED 

/SAVE MAGICAL SLOCK NUMBER 

/USE SYS HANDLER 

/TO READ IN THIS MUCH 

/INTO ZERO 

/FROM HERE 

/MALT IF BAD READ 

/GO RESTART EDITOR 

/3 WAY CHAR UNPACK JUMP 



/RESET JUMP SWITCH 



# 



/OS/8 BASIC COflPIUER 
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3«32 
3433 

3434 
3435 

3436 

3437 
3436 
3439 

3440 
3441 
3448 
3443 
3444 
344S 
3446 
3447 
S44S 
3449 
34S0 
34SI 
34S2 
34S3 
3454 
3455 
3456 
3457 
34Sa 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
346S 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
348a 
3485 
3486 



06661 
06662 
06663 
06664 
06665 
06666 
06667 
06670 
06671 
06678 
06673 
06674 
06675 
06676 
06677 
06700 
06701 
06702 
06703 
06704 
06705 
06706 
06707 
06710 
06711 
06712 
06713 
06714 
06715 
06716 
06717 
06720 
06721 
06722 
06723 
06724 
06725 
06726 
06727 
06730 
06731 
06732 
06733 
06734 
06735 
06736 
06737 
06740 
06741 
06742 
06743 
06744 
06745 
06746 
06747 



3255 

1733 

0367 
7112 
7012 
1326 
7018 
7018 
8333 
5300 
1733 
0367 
3326 
2333 
1733 
0366 
1365 
7450 
5600 
1364 
7450 
5233 
1363 
7450 
5201 
7001 
7450 
1362 
1361 
7450 
5600 
7001 
7450 
5201 
1360 
2200 
5600 



7777 



0000 
0400 
6440 
0000 
1736 
2336 
335S 
1755 
7500 
2336 
7710 
4502 
5736 



DCA 
TAD 1 
AND 

CLU RTR 
RTR 



ieHAR2i 



ICHARl, 



INTMP, 

INEOF, 

INCHCT, 

INHNOLf 

INCTR* 

INPTR, 

XSCOMPf 

CHKMD, 



NOLOOP, 



INJMP 
INPTR 
(7400 



/COMBINE THE HIGH ORDER BITS 
/OF THE TWO WORDS 



INPTR 

ICHARl* 

INPTR 

(7400 

INTHP 

INPTR 

INPTR 

(177 

(-134 

ICHAR 
(134-32 

ENDFIl 
(32-12 



TAD 
RTR 
RTR 
ISZ 

JMP 

TAD I 

AND 

DCA 

ISZ 

TAD I 

AND 

TAD 

SNA 

JMP I 

TAD 

SNA 

JMP 

TAD 

SNA 

JMP 

lAC 

SNA 

TAD 

TAD 

SNA 

JMP I 

lAC 

SNA 

JMP 

TAD 

ISZ 

JMP I 





•1 







8C0MP>8AC0MP 



INTMP /TO FORM THE THIRD CHAR 



/BUMP WORD POINTER 
1/DO SOME COMMON STUFF 
/SAVE THE HIGH ORDER BITS 

/FOR THE THIRD CHAR 

/GO TO THE SECOND WORD 

/GET THE LOW 7 BITS 

/AND I MEAN ONLY 7 11 

/CHECK FOR V (STMT SEPARATOR) 

/TREAT LIKE CR 

/IS IT *Z (END OF FILE) 

/YES, ITS END OF FILE 



ICHAR<»1 /IGNORE LINE FEEDS 
/TABS -» BLANKS 

(40-11 
(11-15 

ICHAR /RETURN ON CARRIAGE RETURN 



ICHAR^l 
(14 
ICHAR 
ICHAR 





TAD I 
ISZ 

DCA 
TAD I 
SMA 
ISZ 
SPA CLA 



CHKWO 

CHKWD 

CWTEMP 

CWTEMP 



/IGNORE FORM FEEDS 
/FIX CHAR 

/RETURN TO THE CALLING WORLD 



/ENTRY ADDR GOES HERE 



/WORD CHECKER 
/GET POINTER 

/SAVE POINTER 
/GET NEXT CHAR 



CHKWD /IF NON NEC, FIX RETURN 



JMS 
JMP 



QGETC 
CHKWD 



/GET CHAR 
/RETURN 



/OS/8 


BASIC COMPILEH 


i 


PAL6-Vfl 


10/30/72 PAGE 


3«8T 


06750 


1755 




TAD I CWTEMP 


/COMPARE 


3466 


06751 


2355 




ISZ CWTEMP 


/INCR POINTER 


3469 


06752 


7650 




SNA CLA 




3490 


06753 


5342 




JMP WDLOOP 


/MO«E 


3491 


06754 


5736 




JMP I CHKWD 


/FAILED 


3498 


06755 


0000 


CWTEMP, 







3493 


06756 


1400 


XDIV, 


FDIVIAFDIV 




3494 


06757 


6600 









45-2 
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/ INITIALIZATIO 


N CODE 




06760 


0014 








06761 


7774 








06762 


0027 








06763 


0020 








06764 


0102 








06765 


7644 








06766 


0177 








06767 


7400 








06770 


3012 








06771 


7607 








06778 


7604 








0677S 


7605 








06774 


6213 








06775 


7600 








06776 


4207 








06777 


7177 










7000 


*UINE 






07000 


5777* 


START, JMP 


RUNNED 




07001 


6211 


CHAINED, CDF 


10 




07002 


1776 


TAD I 


(7644 




07003 


6201 


CDP 






07004 


0375 


AND 


(100 




07005 


7650 


SNA CLA 






07006 


5213 


JMP 


CNE0I7 




07007 


6212 


CIF 


10 




07010 


4774 


JM8 I 


(200 




07011 


0013 


13 






07012 


5773* 


JMP 


8TRTS 




07013 


1372 


CHEDIT, TAD 


(INP0*7 




07014 


3010 


OCA 


X10 




07015 


6211 


COP 


10 




07016 


1410 


TAO I 


Kte 




07017 


3046 


OCA 


BLOCK 




07020 


1410 


TAO I 


X10 




07021 


6201 


COP 






07022 


3771* 


DCA 


OUSIZE 




07023 


1046 


TAO 


BLOCK 




07024 


3770» 


DCA 


OUBLOK 




07025 


6211 


COP 


10 




07026 


1410 


TAO I 


X10 




07027 


6201 


COP 






07030 


3767* 


DCA 


INHNDL 




07031 


5247 


JMP 


STRT2 




07032 


6211 


CETOEV, COP 


10 




07033 


1766* 


TAD 


7617 




07034 


6201 


COP 






07035 


6212 


CIP 


10 




07036 


4774 


JM8 I 


(200 




07037 


0001 


1 






07040 


4401 


INOEVH<» 


1 




07041 


5320 


JMP 


NG 




07042 


1240 


TAD 


.•2 




07043 


3767' 


OCA 


INHNDL 




07044 


6212 


CIP 


10 



/DO LOOKUPS, AND PINO TEMPFILE 
/WAS IT A CHAIN PROM BRTS ? 



/NO, PROM THE EDITOR 
/CHAIN PROM BRTS, RESET 
/TO PORGET DSKI HANDLER 

/NOW GO OPEN TEMP PILE 
/PICK UP SOME STUFF 

/FROM THE INFO BLOCK 
/START OF TEMP FILE 



/SIZE OP HOLE 



/ENTRY ADOR OF HANDLER 



/GET DEVICE NUM FOR INPUT FILE 



/GO FETCH THE DEVICE 

/2 PAGE HANDLER IS OK 

/ERROR 

/GET HANDLER ADDRESS 

/SAVE IT 
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3550 


07045 


4774 


3551 


07046 


0013 


3552 


07047 


6211 


3553 


07050 


1766' 


3554 


07051 


6201 


3555 


07052 


0365 


3556 


07053 


1364 


3557 


07054 


7132 


3558 


07055 


7012 


3559 


07056 


3763* 


3560 


07057 


6211 


3561 


07060 


1762' 


3562 


07061 


6201 


3563 


07062 


3761' 


3564 


07063 


6211 


3565 


07064 


1760' 


3566 


07065 


3050 


3567 


07066 


1757' 


3568 


07067 


3052 


3569 


07070 


1756' 


3570 


07071 


6201 


3571 


07072 


3755' 


3572 


07073 


6046 


3573 


07074 


1354 


3574 


07075 


3012 


3575 


07076 


1353 


3576 


07077 


3011 


3577 


07100 


6211 


3578 


07101 


7130 


3579 


07102 


3412 


3580 


07103 


2011 


3581 


07104 


5301 


3582 


07105 


1352 


3583 


07106 


3011 


3584 


07107 


3412 


3585 


07110 


2011 


3586 


07111 


5307 


3587 


07112 


6201 


3588 


07113 


1325 


3589 


07114 


3751' 


3590 


07115 


1325 


3591 


07116 


3750' 


3592 


07117 


5747' 


3593 


07120 


6046 


3594 


07121 


4473 


3595 


07122 


2331 


3596 


07123 


6041 


3597 


07124 


5323 


3598 


07125 


540b 



STRT2i 



INITST, 



NGi 



JABORT, 



JMS I 
13 

COF 

TAD 

CDF 

AND 

TAD 

CLL CML 

RTR 

DCA 

CDF 

TAD 

CDF 

DCA 

CDF 

TAD 

DCA 

TAD 

DCA 

TAD 

COF 

OCA 

TLS 

TAD 

DCA 

TAD 

DCA 

COF 

CLL CML 

DCA I 

ISZ 

JMP 

TAD 

DCA 

DCA I 

ISZ 

JMP 

COF 

TAD 

DCA 

TAD 

DCA 

JMP 

TLS 

JMS I 

2331 

TSF 

JMP 

JMP I 



(200 

10 
7617 

C7760 

C17 

RTR 

INCTR 

10 

7620 



/RESET SYSTEM TABLES 
/DELETING TENTATIVE FILES 

/SET UP INPUT FILE PAHAMS 

/GET SIZE 



/GET BLOCK NUMBER 



INREC 

10 

INF0*3 /GET START OF 8RT5.SV (+1) 

8RT8 

INFO /GET START OF BASIC. SV (+1) 

ABORTX /BOTH FOR BLOAO 

INFO+2 /GET START OF BLOAD.SV 

LDRBLK /FOR CHAIN TO 8L0A0 

/SET TTV FLAG 
CVARST-1/INITIALIZE ST AREA 
)(12 

(-436-436-436 
Xn /SIZE OF NUM AND STRING TABLES 



10 

RAR 

X12 

XU 

.-3 

(-440 

XU 

X12 

Xll 

.-2 



/SET TO 4000 



/NOW ARRAY TABLES 
/AND BUCKETS 

/SET THEM TO ZERO 



JABORT /MODIFY "C LOCATIONS 

7600 

JABORT 

7605 

CORE /GET CORE SIZE 

OERMSG /SUPER ERROR 



.-1 

XABORT /ABORT COMPILATION 



/OS/a BASIC COMPII.ER 



PAU8-ve 10/30/72 PAGE 47 



3599 


07147 


7200 








3600 


07150 


7605 








3601 


07151 


7600 








3602 


07152 


7340 








3603 


07153 


6246 








S60« 


07154 


0377 








3603 


07155 


0351 








3606 


07156 


7606 








3607 


07157 


7604 








3606 


07160 


7607 








3609 


0T161 


6620 








3610 


07162 


7620 








3611 


07163 


67sa 








3612 


07164 


0017 








3613 


07165 


7760 








3614 


07166 


7617 








361S 


07167 


6731 








3616 


07170 


6475 








3617 


07171 


6506 








3618 


07172 


7613 








3619 


07173 


4651 








3680 


07174 


0200 








3621 


07175 


0100 








3622 


07176 


7644 








3623 


07177 


4600 








3624 




7200 




•INBUF 




362S 






CORE, 






3626 












3627 


07200 


6201 


COR0, 


cor 




3628 


07201 


1325 




TAD 


CORSIZ 


3629 


07202 


7006 




RTL 




3630 


07203 


7004 




RAL 




3631 


07204 


0215 




AND 


COR70 


3632 


07205 


1230 




TAD 


COREX 


3633 


07206 


3207 




OCA 


.♦1 


3634 


07207 


6201 


CORl, 


CDF 




S63S 


07210 


1723 




TAD I 


CORI.OC 


3636 


07211 


7000 


C0R2r 


NOP 




3637 


07212 


3207 




OCA 


CORl 


3636 


07213 


1211 




TAD 


C0R2 


3639 


07214 


3723 




OCA I 


CORLOC 


3640 


07215 


0070 


COR70, 


70 




3641 


07216 


1723 




TAD 1 


CDRI.OC 


3642 


07217 


7400 


CORXf 


7400 




3643 


07220 


1217 




TAD 


CORX 


3644 


07221 


1324 




TAD 


CORV 


3645 


07222 


7640 




SZA CLA 




3646 


07223 


5230 




JMP 


COREX 


3647 


07224 


1207 




TAD 


CORl 


3648 


07225 


3723 




OCA I 


CORLOC 


3649 


07226 


2385 




I8Z 


CORSIZ 


3650 


07227 


5200 




JMP 


COR0 


3651 


07230 


6201 


COREX, 


COP 




3652 


07231 


7240 




CUA CMA 




3653 


07232 


1325 




TAD 


CORSIZ 
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/OS/8 BASIC COMPILER 



PAL6-V8 10/30/72 PAGE <17-1 



SbStt 


07233 


3fc55 


07234 


3656 


07235 


3657 


07236 


3656 


07237 


3659 


07240 


36621 


07241 


3661 


07242 


3662 


0T243 


3663 


07244 


3664 


07245 


3665 


07246 


3666 


07247 


3667 


07250 


3668 


07251 


3669 


07252 


3670 


07253 


3671 


07254 


3672 


07255 


3673 


07256 


3674 


07257 


3675 


07260 


3676 


07261 


3677 


07262 


3678 


0726J 


3679 


07264 


3680 


07265 


3681 


0726b 


36SS 


07267 


3683 


07270 


3684 


07271 


3665 


07272 


3666 


07273 


3687 


07274 


3688 


07275 


3689 


07276 


3690 


07277 


3691 


07300 


3692 


07301 


3693 


07302 


3694 


07303 


3695 


07304 


3696 


07305 


3697 


07306 


3698 


07307 


3699 


07310 


3700 


07311 


3701 


07312 


3702 


07313 


3703 


07314 


3704 


07315 


3705 


07316 


3706 


07317 


3707 


07320 


3708 


07321 



3047 

1047 

7041 

3777' 

7040 

1047 

7640 

5255 

13T6 

3775' 

1374 

3773' 

1372 

3771' 

1370 

3767' 

1366 

3765' 

4764' 

4764' 

4764' 

7201 

4764' 

7201 

3134 

7132 

3135 

4517 

2562 

7775 

4763' 

1362 

3322 

1361 

3012 

1722 

2322 

7450 

5510 

3412 

7146 

1722 

3320 

1320 

7001 

3021 

1722 

2322 

3412 

2021 

5311 

4517 

2570 

0000 

5274 



GENER, 



FOLOOP, 



FUNSI2, 



DCA 

TAD 

CIA 

OCA 

CMA 

TAD 

82A CLA 

JMP 

TAD 

DCA 

TAD 

DCA 

TAD 

DCA 

TAD 

DCA 

TAD 

DCA _, 

JMS 

JMS 

JMS 

CLA lAC 

JMS 

CLA lAC 

OCA 

CLL CML 

OCA 

JMS I 

LITRL 

-3 

JMS 

TAD 

DCA 

TAD 

OCA 

TAD I 

ISZ 

SNA 

JMP I 

OCA I 

CLL CMA 

TAD I 

DCA 

TAD 

lAC 

OCA 

TAD I 

ISZ 

OCA I 

ISZ 

JMP 

JMS I 

FUNCTN 



JMP 



HIFLO 
MIFLO 

NFL03 

/HOW MANY FIELDS ? y* k^ 
HIFLO /MUST THIS BASIC USE ? * 

/(SOUNDS LIKE A LINE BY DYLAN) 

GENEJl. ^ - ^- 

(PATCH1*3&177*5200 "" *- / "? 

PATCHl /ONLY 8K, DON'T USE CDF'S e 2 t 

(PATCH2*1U177*5200 '^ ;5 ' 

PATCH2 E »s ^ *-#^ 

(PATCH3*4«ft f7'*5200 ' ' -^ " 

PATCH3 -r ;»'"™^' 

(PATCH4*3&1 77+5200 ^' *" "l " 



PATCH4 
(7000 ' 
•PATCMS- 
GENTMP 
GENTMP 
GENTMP 

GENTMP 



/GENERATE TEMP 

/GENERATE TEMP 1 

/GENERATE TEMP g 

/GENERATE STRING TEMP 



/GENERATE LITERAL 1.0 



WORDl 

RTR 

WOR02 

QLUKUP2 /ENTER INTO ST 



NEWVAR 

(FNINIT /SET UP FUNCTIONS 

FDPTR 

(MORDl-1 

X12 

FDPTR /GET FIRST WORD 

FDPTR 

QREMARK /DONE, START COMPILER 



X12 

RTL 

FDPTR 

FUNSIZ 

FUNSIZ 



/SAVE IN WORD! 
/GET LOOKUP COUNT 



/GET SIZE OF MOVE 



/GET A WORD 
/PUT INTO WORDN 



TEMP 

FDPTR 

FDPTR 

X12 

TEMP 

.-4 

QLUKUPa /ENTER INTO S.T, 



FDLOOP /LOOP 
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3709 


07382 


0000 


FDPTR, 





3710 


07323 


7217 


CORLOC, 


CORK 




0732« 


1400 


CORV* 


1400 




07S2S 


0001 


CORSIZ, 


1 




07326 


7532 


NAM1.8T, 


BCOHPN 




07327 


753* 




BLOAON 




07330 


7548 




BRTSN 




07331 


7546 




BAPN 




07332 


7552 




B8PN 




07333 


7556 




BPPN 




07334 


0000 








/SAVE FIUE NAME-POINTER LIST 
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3720 


07361 


0133 


3721 


07362 


7400 


3722 


07363 


4223 


3723 


07364 


asm 


372a 


07365 


2222 


3725 


07366 


7000 


372* 


07367 


1520 


3727 


07370 


5323 


3726 


07371 


1477 


3729 


07372 


5303 


3730 


07373 


2270 


3731 


07374 


5301 


3732 


07375 


221« 


3733 


07376 


5217 


3734 


07377 


2345 


3735 




7400 


3736 


07400 


7400 


3737 


07401 


7777 


3738 


07402 


2000 


3739 


07403 


0000 


3740 


07404 


7416 


3741 


07405 


7777 


3742 


07406 


2000 


3743 


07407 


0000 


3744 


07410 


7417 


3745 


07411 


7777 


3746 


07412 


6000 


3747 


07413 


0000 


3748 


07414 


7436 


3749 


07415 


7777 


3750 


07416 


2000 


3751 


07417 


0000 


3752 


07420 


7437 


3753 


07421 


7777 


3754 


07422 


2000 


3755 


07423 


4000 


3756 


07424 


7456 


3757 


07425 


7777 


3758 


07426 


2000 


3759 


07427 


0000 


3760 


07430 


7457 


3761 


07431 


7777 


3762 


07432 


2000 


3763 


07433 


4000 


3764 


07434 


7636 


3765 


07435 


7777 


3766 


07436 


2000 


3767 


07437 


0000 


3768 


07440 


7476 


3769 


07441 


7776 


3770 


07442 


0000 


3771 


07443 


2000 


3772 


07444 


0000 


3773 


07445 


7477 


3774 


07446 


7777 



PAGE 
FNlNITi FUNC3»-1>2000»0 



FUNCll-n2000>0 



FUNC2|«n6000l0 



FUNCl«20l-ll2000f0 



FUNC2*20>-1>2000>4000 



FUNCl«40;-n2000;0 



FUNC2-»40|>n2000|4000 



FUNC1«220;-1>2000;0 



FUNCl«60l-2*0;2000r0 



FUNC2+60>-n6000>0 



/ABS 



/ATN 



/ASC 



/COS 



/CHH 



/EXP 



/DAT 



/SQR 



/EXP2 



/LEN 
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3T75 


07447 


6000 


377$ 


07450 


0000 


3777 


07451 


7516 


3778 


07452 


7777 


3779 


07453 


2000 


3780 


07454 


0000 


3781 


07455 


7S17 


3782 


07456 


7775 


3783 


07457 


2000 


378« 


07460 


4000 


378S 


07461 


6000 


3786 


07462 


0000 


3787 


07463 


753* 


3788 


07464 


7777 


3789 


07465 


2000 


3790 


07466 


0000 


3791 


07467 


7537 


3792 


07470 


7775 


3793 


07471 


0000 


3794 


07472 


2000 


3795 


07473 


6000 


3796 


07474 


4000 


3797 


07475 


7556 


3798 


07476 


7777 


3799 


07477 


2000 


3800 


07500 


0000 


3801 


07501 


7557 


3802 


07502 


7777 


3803 


07503 


2000 


3804 


07504 


4000 


3805 


07505 


7576 


3806 


07506 


7777 


3807 


07507 


2000 


3808 


07510 


0000 


3809 


07511 


7577 


3810 


07512 


7777 


38U 


07513 


6000 


3812 


07514 


0000 


3813 


07515 


7616 


3814 


07516 


7777 


3815 


07517 


2000 


3816 


07520 


0000 


3817 


07521 


7637 


3818 


07522 


7777 


3819 


07523 


2000 


3820 


07524 


0000 


3821 


07525 


0000 


3822 


07526 


0201 


3823 


07527 


2311 


3824 


07530 


0300 


3825 


07531 


2326 


3826 


07532 


0209 


3827 


07533 


1715 


3828 


07534 


2000 


3829 


07535 


2326 



PUNCl«100>«lf2000|0 



/INT 



FUNC2*100I -3120001 40001 6000^0 /POS 



FUNCl«120;*W2000r0 



/LOS 



FUNC2«120)-3> 0120001 60001 4000 /SE6 



PUNCl«t40|«ll2000r0 



FUNC2«140>-U 2000; 4000 



PUNCl«160>«i;2000)0 



FUNC2<«'160f. 116000)0 



PUNCl«200r-lie000)0 



PUNC24>220r-lf2000|0 



BASICNi FILENAME BASIC. SV 



BCOMPN, FILENAME BCOMP.SV 



/SGN 



/STR 



/SIN 



/VAL 



/RND 



/TRC 



/FILE NAMES 



/FOR LOOKUPS 
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3830 


07536 


0214 


BLOADN, 


FILENAME 


BLOAD.SV 


3831 


07537 


1701 








3832 


07540 


0400 








3833 


07541 


2326 








3830 


07542 


0222 


BRTSN, 


FILENAME 


bRTS.SV 


3835 


07543 


2423 








3836 


07544 


0000 








3837 


07545 


2326 








3838 


07546 


0201 


BAFN, 


FILENAME 


BASIC. AF 


3839 


07547 


2311 








3840 


07550 


0300 








3841 


07551 


0106 








3842 


07552 


0201 


BSFN, 


FILENAME 


BASIC. SF 


3843 


07553 


2311 








3844 


07554 


0300 








3845 


07555 


2306 








3846 


07556 


0201 


BFFN, 


FILENAME 


BASIC. FF 


5847 


07557 


2311 








3848 


07560 


0300 








3849 


07561 


0606 








3830 


07562 


0201 


BUFN, 


FILENAME 


BASIC. UF 


3851 


07563 


2311 








3852 


07564 


030k9 








3853 


07565 


2506 








3854 


07566 


0201 


TMPFIL, 


FILENAME 


BASIC, TM 


3855 


07567 


2311 








3856 


07570 


0300 








3857 


07571 


2415 








3858 








S 
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ABORT 


6k3S 


CHEKST 


2441 


E0T8IZ 


1600 


FSUBl 


3314 


ABORTX 


0052 


CHGARG 


1320 


END 


0343 


FSUB2 


3326 


ACM 


3506 


CHKDIM 


0632 


ENDEXP 


2741 


PUNCTN 


2570 


ACNT 


0042 


CHKSOM 


0667 


ENDPIL 


6633 


FUNCl 


7416 


ACO 


0137 


CHKS6N 


5444 


ENDPNS 


6162 


PUNC2 


7417 


AFADD 


6440 


CHKVAL 


2230 


ENTERV 


2307 


FUNC3 


7400 


APOIV 


6600 


CHKMD 


6736 


EOST 


7570 


PUNC4 


7415 


AriDA 


6640 


CHN 


7414 


ERMSO 


5706 


FUNFLO 


1336 


AFMPY 


6540 


CHRPTR 


0017 


ERMSQ2 


1712 


PUNNAM 


1246 


AFSTA 


6700 


CL08E 


3342 


ESIGN 


5067 


PUNNUM 


3336 


APiUB 


6500 


CLOSEP 


7434 


EXPLUP 


5401 


FUNOK 


5673 


AIOIV 


6740 


CLRPN 


7501 


EXPMUL 


5124 


FUNPTR 


1127 


AISUB 


6400 


COLON 


0062 


EXPON 


0025 


PUNS 


6071 


AUl 


5431 


COMARP 


4102 


EXPR 


2600 


PUN8IZ 


7320 


AMPRTN 


6507 


CONVLP 


5014 


EXPRTN 


3544 


PUN8RC 


5660 


AMPSND 


1557 


CORE 


7200 


PADD 


0000 


PUNSS 


3000 


ANORM 


5236 


COREX 


7230 


PDIV 


1400 


GCS 


5520 


ARAVST 


2132 


CORLOC 


7323 


POLOOP 


7274 


6ENER 


7255 


ARSCNT 


0061 


C0R8IZ 


7325 


POPTR 


7322 


GENTMP 


4200 


AR6I.UP 


iat6 


CORV 


7324 


PESC 


7410 


6ETA1 


3517 


ARl 


5414 


CORX 


7217 


PPLD2 


2311 


GETC 


4035 


A88I6N 


6067 


COR0 


7200 


PIDIV 


3400 


GETCWB 


4010 


AlOK 


3465 


CORl 


7207 


PILE 


2^22 


OETOEV 


7032 


A20K 


344S 


C0R2 


7211 


PILENO 


7402 


BETEXP 


5063 


BACK! 


4000 


COR70 


7215 


PILESW 


2556 


GETPN 


2111 


BADDEP 


1253 


CP8AVE 


4166 


PINCAL 


3271 


SETIFN 


2045 


BADEXP 


3122 


CWTEMP 


6755 


PINOA 


2470 


GETLIN 


0222 


BAOPN 


2131 


OACNT 


0062 


PINOEX 


0067 


GETNAM 


5600 


BADPOR 


3323 


OALOOP 


1036 


PINDIM 


0657 


G08UB 


2154 


BAOPSS 


3115 


OAPUSH 


1060 


PINDSV 


4615 


GOTARY 


2504 


BA0602 


2166 


DAPUT 


nil 


PINDTO 


1621 


GOTCR 


0235 


BADIP 


2062 


DATA 


1431 


FININP 


0423 


60TKM 


0314 


BADLET 


0340 


OATPLD 


1473 


PINSN 


3710 


GOTNAM 


5631 


BADNXT 


0762 


DATLST 


2566 


PISUB 


3000 


GOTO 


2147 


BAOPP 


0504 


0A7PTR 


1525 


PIXEXP 


5071 


GOTOPR 


2715 


BAPN 


7546 


OECPT 


0023 


FLDA 


2000 


60TREL 


2027 


BASICN 


7526 


OEP 


1200 


PLIMIT 


1733 


GOTSN 


3671 


BCOMPN 


7532 


depbad 


1051 


PMPY 


1000 


GOTSYM 


2453 


BPPN 


7556 


OELOOP 


1507 


PNE6 


7403 


HIPLO 


0047 


BIOAON 


7536 


OENTRY 


1455 


PNINIT 


7400 


HOOKIN 


2257 


BLOCK 


0046 


DIGIT 


3616 


P0PEN8 


2552 


ICHAR 


6600 


BOSINF 


7774 


0I6TST 


5053 


FOR 


1600 


ICHARl 


6677 


BRTS 


0050 


DIM 


0600 


FORCP 


1736 


ICHAR2 


6673 


BRTSN 


7542 


DIMERR 


0701 


FORFLD 


1660 


ICHAR3 


6660 


B8PN 


7552 


DIMl 


0742 


PORJMP 


0062 


IF 


2000 


BUCKET 


3672 


DLSIZE 


0051 


FORNC 


1735 


IFEND 


2103 


BUPN 


7562 


OOCALL 


3200 


FPOIV 


5310 


IFLUPl 


2017 


CALLUP 


3303 


OOLU 


2432 


PPOVLP 


5322 


IPLUP2 


2072 


CA8EAM 


35S6 


OOSIGN 


5150 


PPMUU 


5200 


IFNREG 


0063 


CASEMA 


3554 


0S9IZE 


1453 


PPRTNE 


5067 


IPOPS 


4141 


CASEMM 


3555 


OSTRNS 


1441 


FREE 


2572 


INBREC 


6622 


CHAIN 


3750 


02 


5234 


FREFLD 


2266 


INBUP 


7200 


CHAINE 


7001 


03 


5235 


F8TA 


2400 


IN8UFP 


6617 


CHECKC 


6555 


EOTBGN 


3012 


P8TEP 


1734 


INCHCT 


6730 


CHEOIT 


7013 


EOTBLK 


6652 


F8UB 


0400 


INCTR 


6732 
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INDEVH 


4400 


LSS2 


4400 


NOFNAM 5702 


OUSIZE 


6506 


INEOF 


6727 


LSS2AC 


7407 


NOGOOD 0304 


OUTCAL 


3210 


INERR 


6(>32 


LTEMP 


2344 


NOLETR 3614 


OUTOLO 


2733 


INFO 


7604 


LUARAY 


2463 


NOMATC 5677 


OUTOPR 


3400 


INGBUF 


6607 


LU8UF 


4636 


N0RE6S 3336 


OUTWKD 


6446 


INHNOU 


6731 


LUFLO 


0071 


NORMLP 5246 


OWTEMP 


6443 


INIT8T 


7074 


UUKUP2 


2200 


NOSN 0062 


07100 


3622 


INJMP 


6655 


UUPFLD 


0742 


NOSNUM 0267 


PATCHl 


2214 


INJMPP 


6603 


LURETN 


2451 


NOSTAR 2701 


PATCH2 


2270 


INPTR 


6733 


LUSARY 


2516 


NOSTRG 5624 


PATCH3 


1477 


INPUT 


0400 


LUSTR6 


2456 


NOTHEN 2055 


PATCH4 


1520 


INPUTL 


0402 


LUVAR 


2427 


NOTMIN 2627 


PATCH5 


2222 


INREC 


6620 


L6201 


2242 


NOTNEW 3100 


PCRLF 


0062 


INTMP 


6726 


MAC 


3456 


NOTNUM 3150 


PETA8L 


6000 


ITRCNT 


S371 


MOLABL 


3725 


NOTQOT 5535 


PEXP 


0522 


JABORT 


7125 


MINUS 


2755 


NOTSAM 2250 


PFCALL 


0475 


JARfUO 


1413 


MISARG 


2752 


NOTSSD 3042 


PLUS 


2557 


JAROND 


0062 


MIXED 


3511 


NOTVAR 3136 


POP 


4052 


JEOP 


5400 


MM 


3452 


NOWRIT 6463 


POSEXP 


5117 


JEQ 


S006 


MODE 


0055 


NOZERO 5755 


P08TX 


0350 


JFOR 


5010 


M0D8ET 


5542 


NO6000 5256 


PRFUN 


0547 


JGE 


5002 


MORDAT 


1435 


NRDL 7521 


PRINT 


0443 


JGT 


5004 


MOVARG 


3227 


NUMBER 5000 


PRINTL 


0446 


JLE 


5007 


MULLUP 


5215 


NUMCMP 2041 


PRNTSN 


5741 


JLT 


5005 


M42 


5457 


NMSVAR 4236 


PRTENO 


0534 


JNE 


5003 


M5 


1131 


NXTDGT 5155 


PSN 


5735 


JSUB 


5000 


NAMEl 


0134 


N3SIZE 2346 


PUSH 


4062 


JTABLE 


2416 


NAME2 


0135 


OAOD 5353 


PUSHO 


4073 


JUMP 


5001 


NAMES 


0136 


OCOUNT 6445 


PUSH2 


2727 


KBDCHK 


2346 


NAMLST 


7326 


ODEVH 6505 


PUTl 


0532 


KEVWRO 


6243 


NCHARS 


0020 


OKFUN 1256 


PUT2 


0540 


KWIOOP 


0273 


NCSAVE 


4165 


OKINAC 3253 


PUT40 


5514 


LDRBUK 


0351 


NDIGIT 


0024 


0LDN3 2342 


QBACKl 


0125 


LEADe 


5757 


NDOK 


3104 


OLOOP 0031 


OCHECK 


0113 


LEFT 


0030 


NEGFAC 


5267 


OLOSTK 0060 


OCHKWO 


0075 


LET 


0316 


NErtARY 


2511 


ONSTAK 3107 


aCOMAR 


0115 


LETTER 


3600 


NEWFLO 


2233 


OPENAF 7454 


QDIGIT 


0131 


LFDOLR 


5610 


NEWLIN 


0201 


OPENAV 7474 


OERMSG 


0073 


LINE 


7000 


NEWN3 


2343 


OPENNF 7514 


QEXPR 


0105 


LINtH 


0053 


NEWOP 


0032 


OPENNV 7534 


QGETAl 


0111 


LINEL 


0054 


NEWSN 


3716 


OPO 0143 


OGETC 


0102 


LI^JMAX 


0120 


NEMVAR 


4223 


OPRANO 2643 


QSETCW 


0103 


LITHL 


2562 


NEXT 


0016 


OPRLUP 2705 


QGETNA 


0114 


LOAD 


4117 


NEXTL 


0713 


0PR8R 2663 


QLETTE 


0130 


LOAOSN 


6000 


NEXTX 


0704 


0PR8RS 6050 


QLOAD 


0120 


LOADSS 


4303 


NFCNT 


5236 


OPl 0140 


QLOADS 


0112 


LOCTRH 


0044 


NFLOS 


2345 


0P2 0141 


QLOOSN 


0074 


LOCTRL 


0045 


NFLOOP 


5275 


0P2SIZ 6554 


OLOOKU 


0116 


LODSN 


0547 


NFPTR 


5307 


0P3 0142 


OLUKUP 


0117 


LD0SS2 


4314 


NFUNS 


1133 


08TACK 0014 


OMOOSE 


0076 


LODIST 


6513 


NG 


7120 


OUBLDK 6475 


(JNEWLI 


0107 


LOOKUP 


2400 


NMOOE 


7541 


0U8UF 0000 


QNOREG 


0132 


L00K3 


2212 


NOCR 


0461 


OUDUMP 6471 


QNUMBE 


0126 


LSSl 


4000 


NOUIGT 


3630 


OUERR 6502 


QOUTOP 


0106 


LSSIAC 


7406 


NOtXP 


5077 


OUPTR 6444 


QOUTInR 


0100 
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OPOP 


0122 


SNUH8 


2532 


TRYEl 


5052 X13 0013 


0PU8H 


0121 


SPACE 


5750 


TRYE2 


5056 ZEXP 5265 


QPU8H0 


0123 


SPCIAL 


3514 


TRYFUN 


5635 




QRCMAR 


0110 


SROL 


7461 


TRYPNT 


0514 




QRESTC 


0104 


SREAD 


1000 


TTX 


3740 




Q8AVAC 


0124 


SSINAC 


4347 


TTY 


3730 




Q8AVEC 


0101 


8SL0AD 


4323 


TTYFIL 


2140 




Q8NUM 


00T7 


S8L00P 


3014 


TMODIM 


0624 




Q8TRIN 


0127 


88REG1 


0064 


TM2 


5234 




010 


1132 


S8RES2 


0065 


TW3 


5235 




02 


1130 


SSTORE 


2400 


TYPCHK 


3467 




0400 


0133 


88TVPE 


4320 


TYPE 


0026 




RANDOH 


3!fc4 


STACK 


0015 


TYPEl 


0056 




READ 


7411 


8TACKA 


7120 


TYPE2 


3557 




REAOX 


1S26 


STACKO 


1134 


UDEF 


1000 




RELOPR 


2111 


STAKSZ 


0060 


UMOPR 


0765 




REMARK 


0205 


STAR 


0356 


UMRTNE 


3535 




RESAR6 


1400 


START 


7000 


UNOPR 


2614 




REST 


7405 


STCHEK 


2317 


UNREFD 


0647 




RE8TCP 


4027 


STEMPS 


2560 


UPAROW 


0362 




RE8T0R 


0542 


8TEP1 


1727 


USE 


7540 




RET 


7404 


8TKLVL 


0066 


U8EERR 


1754 




RETURN 


3561 


STKOVR 


4070 


U8EX 


17«5 




RNOO 


7421 


STMPCT 


0035 


USRFUN 


5704 




R8TRNG 


0431 


8THPLV 


0036 


VARCNT 


0040 




RUNNEO 


4600 


8T0K8Z 


0044 


VAR8T 


0400 




8ACNT 


0043 


STOP 


7441 


VCPTR 


2415 




SACOMP 


6440 


STOPX 


3565 


VERS 


0007 




SACON 


6400 


STOVER 


2337 


VERSON 


0100 




8AL0A0 


6640 


8TPTR 


0037 


WOLOOP 


6742 




8AREAD 


6500 


STRARS 


1054 


WGOTO 


6271 




8ARy8T 


2332 


8TRCMP 


2065 


WORDl 


0134 




8A8IGN 


6065 


8TRGER 


5511 


W0R02 


0135 




8A8T0R 


6700 


STRING 


5455 


W0R03 


0136 




8AVAC 


4251 


STRTMP 


4213 


WPNT 


5561 




8AVECP 


4021 


STRT2 


7047 


WRITE 


7412 




8AVEJF 


1643 


8TRT3 


4651 


W8TEP 


5156 




8C0MP 


0400 


SVAR8T 


1036 


WTAB 


3132 




8C0MPR 


6567 


SVCNT 


0041 


WTHEN 


1737 




SCON 


0000 


SVTEMP 


4300 


MTO 


6273 




SCRTN. 


6511 


8MRITE 


7413 


XABORT 


0006 




8ETPLD 


0070 


SWTARG 


1325 


XADD 


5162 




8ETJF 


7401 


8YHBL1 


0057 


XOIV 


6756 




SHIFT 


3654 


SYHBL2 


3560 


XIDIV 


5557 




SIGN 


5012 


8VMS0L 


0027 


XI8UB 


3763 




SKIP2 


6531 


TABPNT 


0464 


XLOAD 


0770 




SKPEXP 


5145 


TEMP 


0021 


XMUL 


5762 




SLASH 


2761 


TEMPS 


2556 


XSCOMP 


6734 




8L1TRL 


2564 


TEMP2 


0022 


XSTCHE 


1126 




8L0AD 


2000 


TMPBLK 


4656 


X8T0R 


4301 




SLOOP 


5467 


TMPCNT 


0033 


xsua 


1743 




8MLNUM 


5400 


TMPPIU 


7566 


xxxxsv 


4625 




SHOOE 


7561 


TMPLVL 


0034 


X10 


0010 




SNLOOP 


3647 


TOOMNY 


4320 


xu 


0011 




SNUM 


3632 


TRYDEC 


5040 


X12 


0012 





ERRORS OETECTEDJ B 

3859 

LINKS GENERATED! 'it 

3860 



# 



ABORT 


19 


34124 










ABORTX 


Sfct 


3568 










ACN 


1938 


1967* 










ACNT 


48i 


1440 










ACQ 


ItTi 


2071 


2078 


2475 


2490 


2613 2639 




2708 


2714 


2715 


2752 


2754 


2759 2761 


AP 


1038 












APAOO 


I99i 


214 


2586 








AFDXV 


zeii 


3494 










AFUOA 


2es# 


216 


635 


1677 


2251 




APMPV 


2eii 


2979 










APSTA 


2B«i 


217 


S98 


975 


2354 




APSUB 


200* 


815 


1100 








AIOXV 


20S« 


2846 










AlfUB 


I98i 


81J 


2145 








Hi 


2492 


2493 


2495 


2652 


2699 


27584 2768 


AM^RTN 


985 


33244 










ANPINO 


98311 


3044 


3125 








ANORM 


2SS8 


2627 


26344 


2651 


2658 


2709 


ARAV9T 


U0i 


161 


1442 








AR6CNT 


83# 


745 


767 


773 


789 


812 815 


ARBLUR 


7!4# 


770 










ARI 


2814 


2677 


27454 


2756 


2757 




AS8I6N 


344 


3049# 










AIQK 


1947 


19504 










AIOK 


1930 


19344 










BACK! 


104 


21594 


2166 








BAOOEF 


742 


750 


755 


759 


769 


7834 853 


BAOEXR 


1S47 


1554 


1628 


17324 


1734 


1784 


BAOFN 


1217 


12214 










BAOFOR 


1002 


1005 


1011 


1019 


1038 


1856 18614 


BA0F8S 


1668 


1687 


1717 


17274 






BA0602 


1169 


1237 


1243 


12514 






BADZF 


1135 


1141 


11814 


1191 






8A0LET 


335 


3474 










BAONXT 


582 


586 


591 


6284 






BADRF 


449* 


454 










BAFN 


3716 


38384 










BASIC 


3822 


3838 


3842 


3846 


3850 


3854 


BAS!CN 


382211 












BCOMF 


3826 












BCOMPN 


3713 


38264 










BFFN 


3718 


38464 










BLOAD 


3830 












BI.OADN 


3714 


38304 










BLOCK 


528 


2459 


3528 


3532 






BOSINF 


24 


1404 










BRT8 


S4# 


3566 


3834 








BRT8N 


3715 


38344 










B8FN 


3717 


38424 










BUCKET 


2062 


20864 










BUFN 


2441 


38504 










CALLUF 


1634 


18454 










CASEAM 


1908 


1933 


1967 


20074 






CA8EMA 


1906 


1949 


1950 


20054 






CA8EMM 


1904 


1932 


1939 


20064 






CHAIN 


21338 


3272 










CHAINE 


35148 












CHECKC 


94 


33624 


3365 


3367 


3370 


3371 



817 



818 877 



CHEOIT 


3519 


3524# 










CHEKST 


1422» 


1466 










CHGARG 


S20« 


837 










CHKOIM 


526 


53a# 










CHK80M 


525 


536 


567# 


570 


571 


576 


CHKSGN 


2479 


2324 


2769« 


2772 


2777 




CHKVAU 


1287# 


1295 










CHKWD 


80 


3477# 


3478 


3479 


3483 


3486 3491 


CHN 


224# 


2141 










CHHPTR 


2e# 


284 


1012 


1042 


2164 


2165 2174 2179 


CLOSE 


1881« 


3266 










CLOSEF 


226i 


ld84 










CLRFN 


231# 


1231 










COLON 


6B« 


1206 


1212 








COMARP 


96 


2225« 


2227 


2230 


2234 


2237 


CONVLP 


24B2# 


2501 


2511 








CORE 


3592 


362S« 










COREX 


3632 


3646 


3651# 








CORLOC 


3635 


3639 


3641 


3648 


3710# 




CORSIZ 


3628 


3649 


3653 


3712# 






CORV 


3644 


37ll# 










CORX 


3642# 


3643 


3710 








CORe 


3627# 


3650 










CORt 


3634# 


3637 


3647 








C0~R2 


3636# 


363S 










COR70 


3631 


3640« 










CPSAVE 


2180 


2183 


2277# 








CWTEMR 


3480 


3481 


3487 


3486 


3492# 




DACNT 


65# 


703 


714 


721 






OALOOP 


674# 


700 










DAPUSH 


684 


690 


692* 








DAPUT 


T17# 


722 










DATA 


896« 


903 


3212 








OATFLO 


930# 


952 










OATLST 


167« 


168 


956 








DATPTR 


933 


934 


936 


950 


956# 




OECPT 


32# 


2471 


2502 


2510 


2539 




DEF 


740« 


3216 










DEFBAD 


646 


652 


658 


673 


675 


679 685# 691 


OELOOP 


942# 


947 










GENTRY 


898 


913 


916# 


917 


919 


955 


DIGIT 


108 


204U 


2043 


2049 


2050 


2052 


OIGTST 


2506 


25l3# 










Din 


512« 


566 


3207 








OIMERR 


513 


518 


523 


535 


549 


577# 


DIMl 


521 


557 


61U 








DLSIZE 


55# 


921 


922 








DOCALL 


1700 


1777* 










OOLU 


1415# 


1439 










DOSIGN 


2557 


2575)» 










0S8IZE 


909 


914# 










OSTRNG 


897 


904« 










oa 


2629* 


2696 


2698 


2704 






D3 


263t# 


2693 


2695 


2706 






EDTBGN 


142* 


3427 










EOTBLK 


3421 


3425« 










EDTSIZ 


141# 


3423 










END 


3S0« 


3285 










ENOEXP 


1574 


1591 


1617# 


1619 






ENDFIL 


3389 


3410# 


3453 









699 



# 



• 



O^n 



ENDF 

ENTERV 

EOST 

ERM86 

ERM8G2 

E8I6N 

EXPLUP 

EXPMUI.' 

EXPON 

EXM 

EXPRTN 

FADO 

PDXV 

PDLOOP 

PDPTR 

riic 
rr 

PFLD2 

FIBIV 

FILE 

FXtENO 

FIUESM 

FINCAl. 

FINOA 

FINOIX 

FINDIM 

FXNDSV 

FINOTO 

FININF 

FINSN 

FXSUB 

FXXEXP 

FLDA 

FLXMIT 

FMPY 

FNE6 

FNXNIT 

FOPENS 

FOR 

FORCP 

FORFLD 

FORJMP 

FORNC 

FPOIV 

FPOVLP 

FPMUL 

FPRTNE 

FREE 

FREFI.D 

F8TA 

F8TEP 

FSUB 

F8UBI 

FSUB2 

FUNCTN 

FUNCl 



FUNCa 



711 
1334# 
144« 

78 
1«S# 
2S21 
27S4i 
25S58 
34i 
25S9 
88 
S87 

nu 

3887* 
3688 

238* 
3848 

13388 
180* 

14720 
2328 

1474 
18358 

14458 
748 
531 
24208 

10178 
4008 
21008 
1748 
2S268 
1778 
1028 
1758 
2338 
3885 
1473 
10008 
1013 
1047 

688 
1015 
2548 
26868 
2551 
2S258 
27 
928 
1788 
1031 

1748 
1043 
1025 
1688 
2448 
3099 
3813 
2458 



31098 
1339 

710 
29348 

359 
25268 
2744 
2571 

520 
2734 
15208 
19978 

208 
3493 
3708 
3889 



1354 
2845 

3221 
1229 

1478 
1853 

1456 
600 
5598 

2436 
1024 
41S 
2112 
2144 

211 
1057 

210 
1995 
37368 
14968 
3175 
1041 
104S8 
1035 
1039 
26768 
2701 
26018 
2S52 

1698 
1046 

212 
1074 

209 
18548 
1030 

169 
2000 
3740 



775 
2937 

2528 

2574 

560 

2738 

1526 

2585 



923 1045 1312 
2942 2944 2956 



572 2531 2535 2543 2547 2550 2555 
2741 



3690 3695 3700 3701 37098 



1482 1483 1493 15008 



1470 
601 



625 1008 1069 1072 



634 
1067 
2978 



2251 2252 

10918 



10948 

1060 

1063 

10938 

2710 

2628 

2570 

13178 
398 

1088 
1099 
1860 
18648 

712 
3060 
3748 



1076 



1322 1330 1350 1352 1353 

399 975 976 1070 1819 1S68 
10928 



2353 



1865 
1871 
780 1794 



3706 



3066 3072 3075 3081 
3756 3764 3768 3777 



3087 3093 3096 
3787 3797 3805 



3057 3063 3069 3078 3064 3090 3102 3105 310S 





3744 


3/52 


3760 


3773 


FUNC3 


24b« 


426 


441 


461 


FUNC« 


247# 


3111 


3114 


3117 




3138 


3141 


3144 


3147 


FUNFLO 


800 


619 


834* 




FUNNAM 


753 


771 


776 


778* 


FUNNUW 


1788 


1791 


1672* 




FUNOK 


2922# 


2932 






FUNPTR 


655 


656 


660 


661 


FUN8 


2909 


30S2« 






FUNSIZ 


3696 


3697 


3707* 




FUNSRC 


2911# 


2926 






FUNSS 


1566 


1650* 






GCS 


2789 


2795 


2814* 


2821 


GENER 


3661 


3672# 






GENTMP 


824 


1866 


2268* 


2298 


GETAl 


92 


1934 


1943 


1976* 


GETC 


85 


2188* 


2193 


2197 


GETCWB 


86 


2167* 


2172 


2173 


GETDEV 


2462 


3539* 






GETEXP 


2521* 








GETFN 


382 


417 


481 


1203 


GETIFN 


116B« 


1180 






GETUIN 


268* 


272 






GETNAM 


95 


2863* 


2866 


2890 


60SUB 


1241# 


3191 






GOTARY 


1452 


1457* 






GOTCR 


269 


276 


279* 




GOTKW 


311 


326* 






gotnam 


2873 


2861 


2888* 




GOTO 


1236« 


3185 






60T0PR 


1597# 


1613 






GOTREL 


1154# 


1196 






GOTSN 


2068 


2085* 






GOTSYM 


1420 


1432* 






HIFLD 


53# 


3654 


3655 


3659 


HOOKIN 


1280 


1304 


1310* 




ICMAR 


268 


275 


3383* 


3408 


ICHARl 


3429 


3441 


3446* 




1CHAR2 


3430 


3442* 






ICHAR3 


3431« 








IF 


1131* 


3171 






IFENO 


ll98i 


3168 






IFLUPl 


1146« 


1153 






IFLUP2 


1148 


1189* 


1197 




IFNREG 


70» 


1224 


1228 


1233 


IFOPS 


1144 


2256* 






INBREC 


3401* 








INBUF 


151* 


3398 


3624 




INBUFP 


3398# 


3406 






INCHCT 


3385 


3403 


3471* 




INCTR 


3390 


3393 


3473* 


3559 


INOEVH 


145# 


2403 


3545 




INEOF 


3387 


3395 


3470* 




INERR 


3400 


3409* 






INFO 


21 


23 


122* 


3417 


INGBUF 


3390« 








INHNOU 


3396 


3472* 


3537 


3546 


iNim 


3573# 








injitk 


3384 


3386 


3405 


3428* 



3781 3791 3601 3809 3817 

476 3054 3736 

3120 3123 3126 3129 3132 3135 

3150 3153 3156 



706 707 731* 



2826 2830 2831 

2306 2342 3672 3673 3674 3676 

1989 

2199 2200 

2175 



1203* 1227 1230 1234 1484 1883 



2891 



3450 3456 3462 3465 3467 3466 



1875 



3524 3565 3567 3569 



3432 



• 



iNiRfp 


338»# 


3404 


3431 








^^ 


XNPTR 


3407 


3433 


3440 


3442 


3445 


3446 


3474* 


INPUT 


381« 


3197 












INPUTL 


383«i 


405 












INREC 


3399i 


3401 


3563 










INTMP 


3437 


3444 


3469* 










ITPCNT 


2610 


2623 


2683 


2700 


2725* 






JA80RT 


3588 


3S90 


3598* 










JARPLD 


802 


881* 












JARONO 


69* 


796 


808 


884 


885 


887 




JEOF 


18Si 


1201 












JEQ 


193i 


2269 












JPOR 


19S# 


1034 












J6E 


189# 


2260 


2262 










J8T 


191# 


1089 


2271 










JUI 


194# 


2264 


2266 










JUT 


I92i 


2273 












JNE 


190(11 


2256 


2258 










JSU8 


187* 


1245 


1849 










JTA8LE 


1400 


1403* 












JUMP 


188III 


606 


806 










KBOCHK 


305 


1366* 


1368 


1376 


1378 






KEYWRD 


306 


3159* 












KMLOOP 


309* 


317 


324 










LDRBUK 


3S6I* 


3S71 












tEAD0 


2972 


2975* 












LEFT 


37i 


1522 


1525 


1529 


1571 


1624 


1758 1744 1777 


LET 


325 


329* 


3162 










LETTER 


107 


2027* 


2029 


2037 


2036 


2040 




LPOOLR 


2671* 


2899 


2925 


2930 








LINE 


146i 


264 


281 


283 


3512 






LXNEH 


87# 


294 


2948 










LINEL 


SB* 


296 


2950 










LINMAX 


147# 


266 












LITRL 


165« 


166 


1750 


3682 








LOAD 


99 


2238* 


2245 


225S 








L0AD9N 


184« 


490 












LOADSS 


93 


2356* 


2364 


2368 


2372 






LOCTRH 


5a# 


299 


614 


842 


883 


1050 


3295 


UOCTRL 


sm 


265 


302 


617 


844 


886 


1052 3293 


LODSN 


79 


485* 


488 


494 








L0DSS2 


2360 


2365* 












LOOIST 


3324 


3326 


3328* 


3359 








LOOKUP 


97 


1389* 


1430 


1434 


1461 






L00K2 


1273* 


1309 












LSSl 


181* 


2386 


2369 










LS81AC 


236* 


2394 












L8S2 


182* 


2388 












L8S2AC 


237* 














LTEMP 


1286 


1294 


1363* 










LUARAY 


1406 


1440* 












LUBUF 


2422 


2437* 












LUFLO 


76* 
1331 


799 

1846 


801 
2101 


803 


929 


935 


951 1271 1300 


LUKUP2 


98 


1263* 


1264 


1266 


1267 


1268 


1301 1302 1341 


LUPFLO 


595 


603 


612* 










LURETN 


1405 


1407 


1409 


1411 


1430* 






LUSARY 


1410 


1467* 












LUSTRG 


1408 


1435* 












LUVAR 


1404 


1412* 













16201 

MAC 

MDUABL 

MINUS 

MISARG 

MIXED 

MM 

MODE 

MODSET 

MORDAT 

MOVARG 

MULLUP 

M42 

MS 

NAMEl 

NAME2 
NAME3 
NAML8T 
NCHARS 

NC8AVE 
NDI6IT 
NDOK 
MEGFAC 

NEMARV 

NEWFLD 

NEMLIN 

NEWN3 

NEWOP 

NEMSN 

NEWVAR 

NEXT 



NEXTU 

NEXTX 

NFCNT 

NFLOS 

NFLOOP 

NFPTR 

NFUNS 

NG 

NMODE 

NOCR 

NOOIOT 

NOEXP 

NOFNAM 

NOGOOO 

NOUETR 

NOMATC 

N0REG5 

NORMLP 

NOSN 

NOSNUM 

NOSTAR 

NOSTRG 

NOTHIM 

N01 




1297# 
1926 
2093 
1162 
1533 
1957 
1939# 
59# 
81 

90e« 

1801* 
2614# 
278l# 

662 

lUi 
1462 

113« 

11S« 
2i 
29« 
2189 
2178 

33« 
1713 
2577 
1447 
1277 
90 
1274 

39« 
2088 
1752 
27« 

931 
1078 
2111 

588* 

581# 
2fa33« 
1356 
266SII> 
2661 

644 
2430 

243« 

424 
2048 
2517 
2903 

314 
2032 
2916 

109 
2642* 
67* 

289 
1577 
2876 
1167 
1539 



1943« 
2113* 
1629* 
1626« 
1961 

1681 
2832« 

915 
1822 
2624 
2804 

733# 

650 
2293 
1395 
2904 
37l3# 

282 
2192 
2185 
2481 
1718# 
2659# 
1462« 
1290* 

251# 
1278 
1592 
2106* 
2297 

716 

939 
1080 
2313 

3180 
2663 

1364* 

2673 

2666 

735* 
2455 
2838 

43li>« 
2051* 
2520 
2913 

318* 
2035 
2920 
1873* 
2656 

255 

305* 
1579 
2883* 
1176* 
1543* 



3036 
1746 
1970* 

1843 
2835 



1755 
2003 

2833 2836 3642 2843 
2844 



2817 2822 

653 1390 1392 1394 1396 1415 1438 1449 

2301 2867 2893 

2871 2897 2900 2901 2905 2914 

2918 2931 

1014 1040 2161 2162 2166 2171 2177 2186 



2276* 
2485 

2674 

1299 

346 

1305 

1603 

2307* 
720 
945 

1318 

2324 



2513 
2691 

1307 

1316 
1606 

2316 

724 

948 

1320 



2541 

1319 
1362* 



3684 

786 788 

949 953 

1328 1337 



791 
1051 
1343 



794 
1053 
1355 



795 797 
1055 1065 
2108 2109 



2672 
3657 

2668 

3546 



2523 
2929* 

2039* 
2926* 

1860 

290 
1585* 



2670 2671 2675* 
3593* 

2530 2534* 



486 



itWT 



# 



notnW 


1709 


I7l4i 












^^ 


NOTNUM 


1748 


1754# 














NOTQOT 


2819 


2824 


2827« 












N0T8AM 


1293 


1303« 














NOTSSD 


U71 


1684* 














NOrVAR 


1557 


I744i 














NOMRIT 


3298 


3304* 














NOZERO 


2969 


29T3i 














NOft0e0 


2645 


26S0« 














NROU 


22Si 


967 


968 












NUMBER 


105 


2470« 


2478 


2515 


2578 


2579 






NUMCHF 


1164i 


1187 


1203 












NN8VAR 


1763 


2305 


2318i 


2327 










NXTD8T 


2484 


2498 


2580i 












NSaiZE 


1269 


1285 


1311 


1338 


136S« 








OADO 


2494 


2500 


2622 


2692 


2711* 


2724 






OCOUNT 


329ei 


1297 


3303 












OOEVH 


3S22# 
















OKfUN 


782 


786# 














OKINAC 


1814 


I821i 














OUONI 


1265 


1273 


1275 


1276 


1306 


1323 


1325 


1326 1329 1361* 


OUDOP 


38i 


1600 


1601 


1606 


1611 








OLOSTK 


62« 


• 11 


849 












QNSTAK 


1721i 


1753 


1765 












OPENAP 


228i 


1496 














OPENAV 


227i 


1497 














OPENNF 


230* 


1498 














OPENNV 


229# 


1499 














OPO 


121« 


2491 


2499 


2569 


2690 


2713 


2737 


2743 


OPRAND 


1531 


1545 


1555« 












OPRLUP 


1589« 


1596 














0PR8R 


1551 


I571f 


1726 


1781 










0PR8R8 


1587 


3034* 














OP I 


il8i 


2563 


2603 


2604 


2625 


2678 


2681 


2702 


0P2 


119# 


2487 


2496 


2565 


2687 


2721 






0P28IZ 


3343 


3345 


3357 


3361« 










OPS 


120* 


2489 


2497 


2567 


2717 








08TACK 


25i 


261 


339 


1157 


1682 


1664 


1685 


1839 1640 1912 




1913 


1914 


1964 


1965 


1978 


1979 


1980 


2219 2221 2331 




2376 


2377 


2378 


3332 


3344 


3346 


3347 


3353 3354 3356 


OUBUOK 


2457 


3300 


3314« 


3316 


3533 








OUSUF 


157i 


3289 


3313 












OUDUMP 


352 


3299 


3310# 


3316 










OUERR 


3315 


3319* 














OUPTR 


32898 


3301 


3306 


3308 










0U8IZE 


2461 


3317 


3323« 


3531 










QUTCAI. 


1779 


178S# 


1796 


1600 


1810 


1830 


1835 


1844 2002 


OUTOUD 


1605 


1611* 














OUTOPR 


89 


1»97# 


1966 


1972 


2004 


3360 






OUTMRD 


83 


3291» 


3309 












OWTEMP 


3288« 


3292 


3304 












07100 


2045* 


2120 














PATCHl 


1275# 


3662 


3663 












PATCH2 


1319# 


3664 


3665 












PATCH3 


934# 


3666 


3667 












PATCH4 


951i 


3668 


3669 












PATCH5 


1281* 


3671 














PCRUF 


64# 


419 


473 












PETABL 


2553 


2993« 














PEXP 


460 


463« 















PFCALL 


442« 


462 


















PLUS 


1501# 


3034 


















POP 


101 


220U 


2208 
















POSEXP 


2545 


2550* 


















POSTX 


355« 


360 


















PRFUN 


442 


455 


484* 
















PRINT 


41b# 


3203 


















PRINTL 


419# 


432 


472 
















PRNTSN 


2961# 


2976 


















PRTENO 


421 


473* 


















P5N 


2949 


2951 


2957* 


2977 














PUSH 


100 


2203 


2207 


2209* 


2214 












PUSHO 


102 


22}8» 


2223 
















PUSH2 


1599 


1607» 


















PUTl 


456 


47l# 


















PUT2 


477# 


483 


















PUT40 


2796 


2810* 


















QBACKl 


104* 
2534 


436 
2776 


1188 
2825 


1555 
2887 


1584 
3369 


1614 


2039 


2051 


2236 


2512 


QCHECK 


94« 


333 


402 


452 


533 


563 


666 


671 


726 


851 




900 


979 


1009 


1207 


1215 


1475 


1479 


1548 


2780 




QCHKMO 


80* 


438 


458 


1022 


1027 


1165 


1177 








QCOMAR 


96# 


52^ 


698 


768 


1686 












QDIGIT 


108* 


2056 


2067 


2482 


2735 


2868 










QERMSG 


78* 


253 


273 


347 


358 


449 


577 


628 


685 


783 




1109 


1181 


1221 


1251 


1358 


1491 


1552 


1626 


1730 


1782 




1861 


1970 


2113 


2139 


2215 


2370 


2807 


3319 


3410 


3594 


QEXPR 


8e# 


331 


336 


364 


416 


430 


433 


443 


464 


654 




960 


1132 


1154 


1210 


1485 


1546 


1665 


1855 


2134 




Q6ETA1 


92# 


386 


962 


1667 


2239 












QGETC 


e5# 


251 


313 


420 


1018 


1036 


1134 


1140 


1532 


1573 




1578 


2028 


2042 


2226 


2477 


2505 


2516 


2522 


2802 


2872 




2880 


3363 


3485 
















Q6ETCW 


86* 


2ttl5 


2820 
















OGETNA 


95# 


512 


581 


674 


741 


754 


1001 


1104 


1556 




OLETTE 


107* 


645 


651 


657 


2865 


2898 


2902 








OLOAD 


99* 

3349 


445 


466 


856 


1218 


1487 


1801 


1857 


1992 


2136 


QLOADS 


93# 


397 


412 


974 


1672 


1931 


1948 


2250 






QLOOSN 


79# 
1472 


329 

1881 


381 

2010 


416 
2133 


479 


958 


1000 


1131 


1198 


1241 


QLOOKU 


97 # 


529 


540 


583 


760 


1006 


1113 


1558 






QLUKUP 


98« 
3705 


711 


779 


1749 


1760 


1793 


2085 


2294 


2302 


3681 


QMODSE 


8l# 


291 


390 


407 


587 


751 


964 


1186 


1238 


1244 




1676 


1816 


1831 


1910 


2011 


2241 


2344 








QNEWLI 


9e« 


404 


435 


475 


478 


565 


627 


728 


894 


902 




905 


961 


1175 


1250 


1495 


1886 


2016 


2143 






ONOREG 


109# 


292 


622 


740 


893 


1083 


1645 








ONUMBE 


105* 


896 


1747 
















aouTOP 


89* 


345 


1163 


1185 


1612 


1616 










OOUTWR 


83* 


351 


392 


401 


429 


471 


477 


491 


493 


598 




602 


607 


610 


807 


809 


880 


969 


978 


1033 


1059 




1064 


1066 


1068 


1071 


1103 


1115 


1172 


1174 


1226 


1232 




1247 


1249 


1494 


1679 


1820 


1636 


1650 


1869 


1685 


1941 




1952 


2015 


2142 


2254 


2347 


2391 


2395 


2640 






OPOP 


101# 


592 


594 


596 


599 


718 


821 


825 


827 


1597 




1617 


1620 


1623 


1662 


1689 


1691 


1693 


1695 


1732 


1735 




1737 




















QPUSH 


100« 


697 


762 


764 


766 


1073 


1075 


1077 


,^179 


1523 



^' 



^Wt>i 





1S27 


1S28 


1541 


1607 


1609 


1656 


1658 


1660 TtbU 


QPU8H0 


102III 


1568 


1570 


1721 


1723 








OREMAR 


91« 


365 


444 


«51 


465 


579 


630 


687 785 855 




961 


1086 


1116 


1133 


1155 


1183 


1211 


1253 1486 1863 




2135 


3692 














0RE8TC 


67« 


318 


457 


463 


1017 


1176 


2929 




Q8AVAC 


103* 


1561 


1653 


1673 


1724 


1789 


1990 


3329 


08AVEC 


sai 


308 


437 


1021 


1164 


2892 






Q8NUH 


a2# 


288 


1168 


1236 


1242 








08TRIN 


106« 


904 


1754 












OtB 


703 


734* 














02 


692 


693 


732* 












0400 


110* 


1680 


1837 


1924 


1936 


1962 


2243 


2335 2383 3352 


RANDOM 


2019* 


3260 














READ 


239« 


391 














REAOX 


9S8i 


982 


3226 












REIOPR 


1149 


1171 


1192 


1202 


1204* 








REMARK 


91 


252 


255* 


332 


337 


349 


3230 




RE8ARG 


659 


870* 


878 












REST 


235i 


482 














RE8TCP 


87 


2182* 


2187 












RE8T0R 


479f 


3238 














RET 


234« 


879 


2012 












RETURN 


2010* 


3245 














RNDO 


22i# 


2012 


2013 












R8TRN6 


389 


406* 














RUNNED 


2407# 


3513 














SACNT 


49« 


1467 














SACOMP 


214# 


3476 














SACON 


213* 
















SALOAD 


216« 
















8AREAD 


2l5i 


413 














8ARY8T 


161# 


162 


1469 












SA8I6N 


3047* 
















SASTOR 


2t7i 
















SAVAC 


103 


2329* 


2330 


2332 


2337 


2351 






8AVECP 


S4 


2176* 


2181 












SAVEJF 


1035* 


1090 














SCOMP 


209* 


3475 














SCOMPR 


11B4 


3327 


3339 


3372* 










SCON 


206* 
















SCRTN 


3326* 


3373 














SETPUD 


75* 


77 


297 


715 


719 


792 


937 


944 1272 1321 




1802 


1823 


2096 


2106 


2312 


2323 






SETJF 


220* 


1032 














8P 


3842 
















SHIFT 


2072* 


2079 














SIGN 


2476 


2480# 


2575 












SKIP2 


3337 


3342* 














SKPEXP 


2561 


2572* 














SLASH 


1633* 


3040 














8UITRL 


166* 


167 


1761 












SLQAD 


211* 
















SLOOP 


2789* 


2801 














SMLNUM 


519 


532 


2527 


2733* 


2736 








8M0DE 


242* 


2838 


2839 












SNLOOP 


2067* 


2084 














SNUM 


82 


2054* 


2057 


2063 


2105 


2115 






SNUMS 


162* 


163 


2061 












SPACE 


2945 


2968« 















SPCIAl. 


1901 


1973* 


















SROL 


223* 


967 


















SREAD 


210* 


413 


414 
















SSINAC 


23B5 


2593* 


















SSUOAD 


2363 


2366 


2367 


2373* 


2392 


2396 










SSLOOP 


1662* 


1688 


















SSRCGl 


71# 




















8SREG2 


72# 




















SSTORE 


212* 




















8STYPE 


23(>9» 


2382 


















STACK 


26# 


263 


589 


620 


810 


847 


650 


658 


1084 


1728 




1729 


2202 


2205 


2206 


2210 


2212 










STACKA 


26 


73 


148* 


588 


2211 












STACKO 


25 


260 


736* 


737 


2220 












STAKSZ 


149* 


2211 


















STAR 


361* 


3038 


















START 


3513* 




















8TCMEK 


730 


777 


926 


1044 


1314 


1342* 


1346 


1347 


1349 


1357 


STEMPS 


164* 


165 


2303 
















STEPl 


1029 


1087* 


















STKUVL 


73* 


262 


621 


1085 














STKOVR 


2215* 


2224 


















STMPCT 


42* 


259 


891 


2299 


2300 












STMPLV 


43* 


258 


892 
















8T0K82 


737* 


2220 


















STOP 


222* 


350 


2013 


2014 














STOPX 


2014* 


3250 


















STOVER 


1358* 


1431 


2317 


2328 














8TPTR 


44* 


542 


554 


555 


556 


558 


559 


561 


761 


828 




831 


871 


874 


1416 


1418 


1427 


1443 


1445 


1450 


1453 




1454 


1455 


1456 


1463 


1464 


1659 


1692 


1706 


1711 


1712 


STRARG 


681 


686* 


















STRCMP 


1161 


1184« 


















STR6ER 


2803 


2807* 


2816 
















STRING 


106 


a779# 


2782 


2783 


2790 


2606 


2809 


2813 






STRTMP 


2290 


2299* 


















STHT2 


3538 


3552* 


















STRT3 


2448* 


3523 


















SV 


3822 


3826 


3830 


3834 














SVARST 


159« 


160 


1437 
















SVCNT 


47* 


1435 


2319 


2326 














SVTEMP 


2333 


2334 


2339 


2340 


2341 


2343 


2349 


2350 


2352* 




SWRITE 


241* 




















8WTARG 


825* 




















SYMBUl 


61* 


400 


977 


1678 


1951 


1985 


2253 








8VMBL2 


1919 


1940 


1968 


2009* 














SYMBOI. 


36* 


623 


752 


763 


630 


833 


1007 


1114 


1298 


1425 




1426 


1432 


1459 


1559 


1694 


1722 


1787 


179^ 


1821 


1867 




1870 


2001 


2090 


2098 


2310 


2311 


2321 


2322 


2346 


2348 




2922 




















TABPNT 


427 


433* 


















TEMP 


30* 


267 


271 


312 


315 


326 


327 


340 


341 


539 




547 


550 


552 


593 


609 


615 


616 


618 


663 


682 




683 


702 


814 


836 


918 


920 


924 


938 


946 


1139 




1142 


1158 


1159 


1170 


1194 


1246 


1521 


1524 


1586 


1594 




1622 


1625 


1690 


1701 


1720 


1736 


1739 


1798 


1805 


1808 




1812 


1816 


1922 


1974 


1975 


1988 


1999 


2055 


2091 


2097 




2104 


2107 


2358 


2415 


2786 


2794 


2797 


2798 


2799 


2810 




2812 


2960 


2975 


3333 


3335 


3338 


3699 


3703 






TEMJi^ 


163* 


164 


2295 










i 


^k 





f 



TEMP 



TM 

TMPBLK 

TMPCNT 

TM^FIL 

TM(»LVU 

TOOMNY 

TRVoec 

TKVEl 

THYEa 

THYFUN 

TRYPNT 

TTK 

TTY 

TTYriL 

TWOOIM 

TMi 

TMl 

TYPCHK 

TYPE 



TYPEl 



TYPE2 

UDEP 

UP 

UHOPR 

UHRTNE 

UNOPR 

UNPEFD 

UPAROW 

USE 

U8EERR 

U8EX 

U8RPUN 

VARCNT 

VAR8T 

VCPTR 

VERS 

VERSON 

MDLOOP 

M60T0 

MORDI 



M0R02 



W 01^03 

MPNT 
MRITE 



31* 
839 
1715 
2S00 
3S5« 
2«53« 

40« 
2453 

Hi* 
2362 
2«83 
2509 
2504 
2869 

440 
ISTT 
21Ui 
1209 

524 
260» 
2608 
i95ai 
35i 

765 
1655 
1997 
60« 

971 
1842 
2242 
1917 

644111 
3850 

631# 

633 
15S2i 

545 

365i 

248# 
1105 
1102* 
2908 
45« 

158III 

1402« 

204 

17i 

3481 # 

1178 

112« 
1283 
2602 
3678 

1144 
2486 
2748 

116* 
2718 

459 

240# 



298 300 
1143 1151 
206S 2083 



2456 
257 

38S4i 

256 
23704 
23024 
25124 
25164 
28924 

4574 
2122 
2123 
12284 

SS2i 
8615 
2618 
1969 

514 

822 
1696 
2864 

387 
1219 
1858 
2247 
1920 

729 

1540 

19904 

1536 

5514 
3042 
1102 
11094 
3281 
29314 
1412 

159 
1413 

20 

3490 
31814 

250 
1332 
2626 
3687 

295 
2605 
2765 
2069 
2719 
2S474 

470 



2458 
889 



301 303 
1173 1248 
2095 2099 



2460 

1061 2291 



^70 



665 688 689 ^01 
1560 1569 1657 1704 
2110 2374 2386 2393 



2292 



744 
1710 
2788 



890 1082 



21244 
2941 



2617 
2620 

1996 
B2B 
823 

1697 
2878 

394 
1488 
1935 
3351 
1923 

737 



2131 2953 
2943 2946 



2955 

2947 2970 2974 



26304 
26324 

568 584 

832 1003 

1719 1827 

2879 2888 

409 446 

1669 1675 



676 696 743 746 

1106 1112 1397 1563 

1902 1909 1958 1963 

2869 2924 

468 670 723 963 

1807 1815 1825 1828 

1945 1954 1959 1983 1986 2137 



757 
1567 
1993 

965 

1838 
2240 



1928 1955 
3277 



1994 20084 



1542 1610 



2308 
1414 
1423 



293 

1756 
2654 

492 
2611 
2767 

2081 
2749 



2315 
3573 

1429 1436 



489 
1792 
2655 

2056 
2635 

2785 

2474 
2751 



708 
1832 

2657 

2059 
2643 
2958 
2488 
2762 



1441 1468 



772 906 

2066 2075 

2680 2703 

2072 2074 

2664 2705 

2961 2964 

2607 2612 

2764 



910 912 

2077 2472 

2755 2784 

2080 2082 

2722 2723 

2965 3680 

2637 2646 



940 
2537 
2829 

2473 
2746 

2707 



WSTEP 


1028 


2518 


2581« 
















WTAB 


439 


1740# 


















WTHEN 


1095# 


1166 


















WTO 


1023 


318i« 


















XABORT 


19# 


357 


1360 


1373 


2217 


3321 


3596 








XADO 


987 


988 


1503 


1504 


2585i 












XDIV 


1636 


3493» 


















XIDIV 


1635 


2845# 


















XISUB 


1631 


2144* 


















XLOAO 


597 


634« 


1903 
















XHUL 


363 


364 


2978* 
















XSCOMP 


3375 


3376 


3475III 
















XSTCHE 


709 


730* 


















XSTOR 


2345 


2353# 


3048 


3050 














XSUB 


1058 


1099* 


1632 
















XXXXSV 


2423 


2428# 


2431 
















XI0 


21# 


265 


270 


279 


307 


309 


319 


322 


941 


943 




1145 


1146 


1150 


1189 


1193 


1282 


1291 


1296 


1588 


1589 




1593 


1803 


1824 


1851 


1896 


1899 


1905 


1907 


1915 


1916 




1918 


1973 


2094 


2418 


2434 


2447 


2910 


2911 


2917 


2921 




2926 


2927 


3525 


3527 


3529 


3535 










XU 


22# 


1284 


1288 


1333 


1335 


1981 


1982 


1984 


2379 


2380 




2390 


2420 


2554 


2562 


2564 


2566 


2568 


2572 


3576 


3580 




3583 


3585 


















xia 


23# 
3579 


787 
3584 


835 

3686 


840 
3693 


643 
3702 


845 


2414 


3348 


3355 


3574 


X13 


24« 


848 


857 


870 


872 


876 


2412 








ZEXP 


2641 


2657* 


















J.L0366 


353 




















^L0370 


350 




















^t.0371 


344 




















^L0372 


306 




















^L0375 


266 




















^L0376 


264 


281 


263 
















^U0377 


260 




















^L0561 


490 




















j,L0562 


482 




















xU0563 


476 




















^U0564 


4T0 




















*L0565 


461 




















^L0S66 


441 




















^L0567 


428 




















^L0570 


425 




















xL0571 


422 




















J.L0572 


414 




















^10573 


413 




















j,L0574 


399 




















J.L0575 


398 




















a.l.aS7fc 


391 




















-.1.2772 


606 




















^U0773 


604 




















^L0774 


588 




















*LaT75 


574 




















^10776 


537 


538 


543 
















^L1372 


806 




















J.U1373 


604 




















^L1375 


790 




















^L1377 


775 




















^L1567 


976 




















a.Ll570 


975 





















.^m 



966 

^Li573 ^ae 

tl.lS76 923 

,.11577 879 

,.11764 1102 

,.11765 10«9 

^11766 1007 

^U1767 1070 

^11770 10ftl 

^1.1774 10S4 

^L1775 1032 

^12171 124S 

^L2172 1231 

^1.2173 1225 

^t2174 1201 

^L217S 1184 

^L2176 11()2 

^L2177 1144 

^12371 1374 

^L2372 1371 

^t2373 1370 

^L2S74 1351 

^1.2375 1312 

^1.2376 1283 1332 

^U2377 1270 

^12564 1473 

^L256S 14fc9 

^1.2566 1467 

^U2567 1457 

^12570 1442 

^1.2571 1440 

,.U2572 1437 

A2573 1431 1465 

^L2575 1421 

^L2576 1414 

^1,2577 1412 

^L2765 1587 

^12766 158S 

^12767 1582 

^L2770 1575 1580 

^L277l 1564 

^1.2774 1543 

^L2775 1540 

.1.2776 1537 

^L2777 1534 

^L3172 1727 

^1,3174 1707 

^1.3176 1677 

^1.3177 1650 1*98 

^1.3370 1884 

^L3373 1849 

^13374 1647 

^L3375 1819 1868 

^L3570 2014 

^1.3571 2013 

^L3S72 2012 

^L3S74 2000 

iL3575 1995 

.L3576 1921 1987 



^L3577 


1903 






j,L37fc5 


2141 






^1.3766 


2121 






*1.3767 


2116 






^L37T0 


2102 






xl.3771 


2064 


2070 




*1.3772 


2061 






^1.3773 


2046 






^1.3774 


2044 






*l.3775 


2036 


2117 




^1.3776 


2033 






*L3777 


2030 






^L«170 


2252 






j.t4lTl 


2251 






^L4172 


2232 






^U«i73 


2228 






^1.4174 


2220 






*U4175 


2211 






*L4176 


2198 






*U4177 


2195 






^U4373 


2394 






a.1.4374 


2389 






*U4375 


2386 






xU4377 


2309 


2320 




^1.4777 


2408 


2426 2439 2451 


*L51fe4 


2577 






*L5U5 


2573 






j,l.Sl66 


2553 






^L5167 


2551 






*L5170 


2548 






*LS171 


2538 






*L5172 


2536 






*L5174 


2507 






^L5175 


2494 


2500 




a.L5l76 


2492 


2493 2495 


^1.5373 


2690 






*L537« 


2660 






^L5375 


2652 


2699 




^1.5376 


2614 


2677 




^U5377 


2609 


2682 




*U5567 


2839 






*U5570 


2838 






*l.557l 


2628 






*L5572 


2827 






u.1-5573 


2811 






^L5574 


2787 






^1.5575 


2785 






^L557fe 


2774 






*L5577 


2770 






*L5765 


2973 






^L5766 


2967 






^L5767 


2954 






*L5771 


2952 






j.1.5773 


2923 






*1.5774 


2909 






^1-5775 


2906 






^15776 


2883 






j.Lb777 


2874 


2882 




J.L657S 


3342 






^L6S76 


3311 







.6576 



.l.*577 


3302 




3466 




3460 




34S9 




3454 




3451 




3446 




3447 




3434 3443 




3414 




3412 




3402 




3S82 




3575 




3573 




3556 




3555 




3524 




3521 3S43 3550 




3517 




3515 




3687 




3685 




3670 




3668 




3666 




3664 




3662 



/08/8 BASIC LOAOEH PAL8-V8 10/30/72 PAGE 1 

1 /OS/8 BASIC LOADER 

2 / 

3 /DEC-S8-L.BA5A-A-I.A 

a / 

5 /COPYRIGHT, l«>7a 

6 / 

7 /DIGITAL EQUIPMENT CORPORATION 

8 /MAYNARD, MASSACHUSETTS 01754 

9 / 

10 /AUGUST 19, 1972 

11 / 

12 /HANK MAURER 

13 / 

14 / 

15 / 
U / 

17 0100 VERSONai00 



/OS/B BASIC LOADER 



PAL6»va 10/30/72 PAGE 2 



16 




/ 086 BASIC COMPILER POST PROCESSOR 


19 


0010 


X10al0 


20 


0011 


Xll'll 


21 


0013 


X13»13 


22 


0015 


STACKulS 


23 


0020 


8TCDFii20 /KEY INTERP 


24 


0021 


N8TA0R»8TCDF*1 


25 


0022 


NASTAD*NSTADR«'l 


26 


0023 


SSTAORiNASTAD*! 


27 


0024 


SASTAD'SSTAOR*-! 


2S 


0025 


CODCDPwSASTADtl 


29 


0026 


CODB6NiC00CDF4>l 


30 


0027 


OATTOP"CODBGN*l 


31 


0030 


DATPTR«DATT0P*1 


32 


0031 


SWPINF"DATPTR*1 


33 


0040 


VARCNT"40 /LOCATIONS 


SO 


0041 


SVCNT«VARCNT*1 


3S 


0042 


ACNT"SVCNT*l 


36 


0043 


SACNTaACNTtl 


37 


0044 


L0CTRH»3ACNT*1 


3a 


0045 


L0CTRL«L0CTRH*1 


39 


0046 


BLOCK«LOCTRL«1 


40 


0047 


HIFLOaBLOCK^l 


41 


0050 


BRT8"HIFLD*1 


42 


0051 


DLSIZEaBRTS^l 


43 


0052 


AB0RTX*0L8IZE4'1 


44 


0053 


FREEHI»AB0RTX*1 /LOCATIONS 


45 


0054 


FREELO'FREEHI^l 


46 


0055 


TEMP»FREEL0*1 


47 


0056 


TEMP2tTEMP*l 


48 


0057 


TEMP3»TEMP2*1 


49 


0060 


W0RD1»TEMP3*1 


50 


0061 


W0RD2«W0R01«1 


51 


0062 


W0RD3«W0RD24'1 


52 


0063 


NCHARSaM0RD3*l 


53 


0064 


SUBHI'NCHARS^l 


54 


0065 


SUBLO'SUBHI^l 


55 


0066 


COOSZlaSUBLO^l 


S6 


0067 


C0DSZ2«C0DSZ1-»1 


57 


0070 


L0CHIaC00SZ2«l 


58 


0071 


LOCLO»LOCHI*l 


59 


0072 


CODBtLOCLOf-l 


60 


0073 


C0DF«C0DB4'1 


61 


0074 


ICOUNT«CODF*l 


62 


007S 


0C0UNT«IC0UNT«1 


63 


0076 


AClBOCOUNTol 


64 


0077 


AC2aACt4'l 


65 


0100 


AC3aAC24l 


66 


0101 


SC«AC3*1 


67 


0102 


LINEHiSC^l 


68 


0103 


LINEL*LINEH41 


69 


0104 


XLABEL"LINEL*1 


70 


010S 


CLRFLO»XLABEL*l 


71 


0106 


CLREND«CLRFLD*1 


72 


0107 


RESA0R«CLREN04'1 



BY RELOCATION CODE 



/OS/8 BASIC LOADER PAI.B-V8 10/30/72 PAGE 2-1 

/MORE COMPILER OEFINITIONS 



73 


1036 


SVARST91036 


in 


2132 


ARAY8T»2132 


75 


2332 


5ARYST»2332 


76 


2560 


STEMP8a2560 


77 


2562 


LITRL»87EMP8*2 


7a 


2564 


SLITRL«LITRL*2 


79 


2566 


DATL8T«8LITRL*2 


80 


7120 


STACKA«7120 


81 


3012 


EDTBGN'3012 


82 


1600 


EOTS1Z»1600 


83 


0200 


BRTBGN>20e 


84 


3400 


BRT8IZ*3400 


85 


7760 


0CB«776e 



/MAIN STACK OF COMPILER 
/START OF EDITOR 
/SUE OF EDITOR 
/START OF BRTS 
/SIZE OF 8RTS 



• 



/OS/8 BASIC UOAOEN 



P*U6-ve 10/30/72 PAGE 3 



86 
87 
88 

89 
90 
91 
92 

93 
94 
95 

96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
HI 
112 
113 

ri4 

115 
lU 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 



00400 
00401 
00402 
00403 
00404 
00405 
00406 
00407 
00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00420 
0042} 
00422 
00423 
00424 
00425 
00426 
00427 
00430 
00431 
00432 

muTf 

00434 
00435 
00436 
00437 
00440 
00441 
00442 
00443 
00444 
00445 
00446 
00447 
00450 
00451 
00452 
00453 
00454 
00455 
00456 
00457 
00460 
00461 
00462 
00463 
00464 
00465 



0400 

1047 

3053 

1377 

3054 

3031 

3102 

3103 

1015 

7041 

1376 

7650 

5216 

4775* 

2506 

7240 

1047 

7640 

523J 

1374 

3010 

1410 

7450 

5773' 

3055 

1372 

3455 

5224 

621 1 

1771 

0370 

1367 

6201 

7650 

1766' 

1365 

7640 

5250 

1364 

3054 

7130 

7001 

3031 

4763' 

3336 

1336 

3345 

3314 

4261 

5773' 

0000 

7130 
0031 
7640 
5272 



*400 
LOADERi TAD 

OCA 

TAD 

OCA 

DCA 

OCA 

DCA 

TAD 

CIA 

TAD 

SNA CUA 

JMP 

JMS 

2506 

CUA CMA 

TAD 

SZA CIA 

JMP 

TAD 

DCA 
PATLUP, TAD I 

SNA 

JMP 

OCA 

TAD 

OCA I 

JMP 
NOPATCHjCer'^^ 

TAO I 



N0TD8E, 



SWAP, 



AND 

TAD 

CDF 

SNA CUA 

TAD 

TAD 

SZA CUA 

JMP 

TAD 

DCA 

CUU CMU 

lAC 

OCA 

JMS 

OCA 

TAO 

OCA 

DCA 

JMS 

JMP 



CUU CMU 

AND 

SZA CUA 

JMP 



HIFUO 
FREEHI 
(7577 
FREEUQ 

SWPINF 
UINEH 
UINEU 
STACK 



/SET UP FREE UOCATION 



/CUEAR SWAPPER WORD 
/CUEAR UINE NUMBER 



C*'^ - 



/ANY UNCUOSED FOR'S ? 
CSTACKA-1 



.♦3 /NO 

ERMSG /YES 

- \ 

HIFUO /NO CDF'S IF ONUY 8K 



NOPATCH 
(PATUST- 
X10 
)(10 

STSTUF 

TEMP 

(7410 

TEMP 

PAtUilE. 

10 

(DCB 

(770 

(-210 



/NO PATCHES 
1 * 



/AUWAYS TWO WORDS 



•f^/Kp 



/CHECK FOR T06E SYSTEM 

/ED FRIEDMAN GAVE ME THIS CODE 

/AND I'M TAKING IT ON FAITH 



7642 
(-6223 

N0TD8E 
(7377 

FREEUO 
RAR 

SWPINF 
FREEF 

•^WfPt-, 

swell 

SWPFUAG 

SWAP 

STSTUF 

RAR 
SWPINF 



/IS IT A ROM SYSTEM ? 



/NO TD/8E OR ROM TD/8E 
/TD8E SYS WASTES 400 WORDS 

/SET SWAP INFO 



/GET CDF TO HIGHEST FIEUD 
/INTO 2 PUACES 



/CUEAR THE SWAP FLAG 

/MOVE 088 OUT 

/OO SYMBOU TA8UE STUFF 

/SWAP OSS RESIDENT 

/4000 

/IS IT A TD8E SYS ? 



T08ESYS /YES 



/OS/6 BASIC LOADER 



PAU8-V8 10/30/73 PAGE 3-1 



141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

I5fc 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

1T4 

175 

lT6 

177 

ITS 

179 

160 

161 

162 

163 

184 

185 

186 

187 

188 

169 

190 

191 

192 

193 

19U 

195 



00466 

00467 

00470 

00471 

00472 

00473 

00474 

00475 

00476 

00477 

00500 

00501 

00502 

00503 

00504 

00505 

00506 

00507 

00510 

00511 

00512 

00513 

00514 

00515 

00516 

00517 

00520 

00521 

00522 

00523 

00524 

00525 

00526 

00527 

00530 

00531 

00532 

00533 

00534 

00535 

00536 

00537 

00540 

00541 

00542 

00543 

00544 

00545 

00546 

00547 

00550 

00551 

00552 

00553 

00554 



4315 

6211 

7600 

5661 

4315 

6211 

7400 

4315 

6221 

7600 

7126 

1336 

3766* 

1336 

7001 

3762* 

1762' 

3761' 

5661 

7200 

6201 

5661 

0000 

0000 

1715 

3334 

1334 

3347 

231S 

1715 

3055 

2315 

1277 

3056 

1314 

7640 

5345 

2314 

7402 

1456 

53U' 

3455 

2055 

205b 

5334 

6201 

5715 

5661 

1455 

7402 

3456 

2055 

2056 

5345 

6201 



L6221> 
L7600, 



CtJf 

7600 

JMP 

T08E8Y8,JMS 
CDF 
7400 
JMS 
CDF 
7600 
CLL 
TAD 
DCA 
TAD 
XAC 
OCA 
TAD 
DCA 
JMP 
CLA 
CDF 
JMP 

SWPFUAG,0 



I 



SMPSUB 
10 

SWAP 

swpsue 
10 

SWPSUB 
20 

CMU HTL 
SWPFl 
7642 
8WPP1 

7721 
7721 
7727 

I SWAP 



SWPRETi 



SWAP 



SWPSUB, 



SWPli 



8WPF2i> 
SWP2, 





TAD 

DCA 

TAD 

DCA 

ISZ 

TAD 

DCA 

ISZ 

TAD 

OCA 

TAD 

SZA 

JMP 

ISZ 

HLT 

TAD 

JMP 

DCA 

ISZ 

ISZ 

JMP 

CDF 

JMP 

JMP 

TAD 

HLT 

OCA 

ISZ 

ISZ 

JMP 

COF 



CLA 

I 
I 



SWPSUB 

SWPl 

SWPl 

SWP2 

SWPSUB 

SWPSUB 

TEMP 

SWPSUB 

L7600 

TEMP2 

SWPFLA6 

SWPF2 

TEMP2 

SWPRET. 

TEMP 

TEMP 

TEMP2 

SWPl 

SWPSUB 

SWAP 
TEMP 

TEMP2 
TEMP 
TEMP2 
SWPF2 



/SWAP 17600 TO/FROM N7600 



/SWAP 17600 TO/FROM N7400 



/SWAP 27600 TO/FROM N7600 



/FIX UP 07600 STUFF TO MATCH 
/CIF CDF N0 



/CIF N0 



/RETURN IF 8K 

/SWAPPER 
/GET FIELD 
/TWICE 

/ONCE FOR EACH DIRECTION 

/GET HI FIELD AOOR 

/GET COUNT/POITER 

/WHICH WAY 1 

/PUT 0S6 BACK 
/MOVE OSS OUT 

/GET PART OF RESIDENT 
/RETURN IF 8K ONLY 
/INTO HI FIELD 
/BUMP POINTER 
/AND PTR/CTR 
/LOOP 



/IF 8K JUST RETURN 
/GET WORD OF HI FIELD 

/BACK WHERE IT BELONGS 



• 



• 



• 



/OS/8 BASIC LOADER PAU8-V8 10/30/72 PAGE 3-2 

196 00555 1276 TAD lf>Z&l /SET UP TO FIX FIELD CDFS 

197 00556 3336 OCA §W£IP 

198 00557 5715 JMP I IS^ffDB 



/OS/6 BASIC LOADER 
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199 

201 

202 

203 

204 

205 

206 

207 

20B 

209 

210 

211 

212 

213 

2U 

215 

216 

217 

210 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

236 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 



00561 
00562 
00563 
00564 
00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 

00600 

00601 

00602 

00603 

00604 

00605 

00606 

00607 

00610 

00611 

00612 

00613 

00614 

00615 

00616 

00617 

00620 

00621 

00622 

00623 

00624' 

00625 

00626 

00627 

00630 

00631 

00632 

00633 

00634 

00635 

00636 

00637 

00640 

00641 

00642 

00643 

00644 

0064S 

00646 



7727 

7721 

2130 

7377 

1555 

7642 

7570 

0770 

7760 

7410 

1000 

1343 

1712 

7117 

7577 

0600 

6201 

4777' 

7041 

3105 

1054 

7041 

3106 

2054 

1376 

3010 

1375 

3055 

6211 

1410 

3056 

1410 

7510 

1374 

3057 

1056 

6201 

7700 

4260 

2055 

5214 

6211 

1773 

3243 

1772 

7410 

1055 

7450 

5771' 

1370 

3010 

6211 

1410 

3055 

1410 



NODATA, 



ASVLUP, 



P6, 



STMCUP, 



STEMPF, 



pr. 



PAGE 

CDF 

JMS 

CIA 

OCA 

TAD 

CIA 

DCA 

ISZ 

TAD 

DCA 

TAD 

DCA 

COP 

TAD I 

OCA 

TAD I 

SPA 

TAD 

DCA 

TAD 

CDF 

SMA CLA 

JMS 

ISZ 

JMP 

CDF 

TAD I 

DCA 

TAD I 

SKP 

TAD 

SNA 

JMP 

TAD 

DCA 

CDF 

TAD I 

OCA 

TAD I 



FREEF /SAVE FIELD 

CURFLD /FOR ARRAY CLEARING 
FREELO /SAVE THIS AOOR 

CLRENO /FOR END OF ARRAY CLEAR 
FREELO /MAKE IT NEXT FREE ♦ 1 
(SVAR5T-1 



X10 

(•436 

TEMP 

10 

X10 

TEMP2 

X10 

(4010 
TEMP3 
TEMP2 



/ALLOCATE STRING VARS 



/LOOK FOR DEFINED STRING VAR 
/SAVE SYMBOL NUMBER 
/GET SIZE 

/IF UNDEF USE 16 CHARS 

/IS IT DEFINED ? 



SVSTOR /YES, CREATE ENTRY ' 

TEMP /BUMP COUNT 

ASVLUP /LOOP 

10 /ALLOCATE STRING TEMPS 

(STEMPS+l 

STEMPF /INIT FIELD 

(STEMPS /AND POINTER 



TEMP 

ALLOCA 

(-1 

X10 

10 

X10 

TEMP 

X10 



/LOOK AT NEXT ENTRY 

/DONE GO ALLOCATE AHRAYS 

/GET POINTER 

/GET ADOR OF NEXT ENTRY 

/SAVE IT 

/AND ITS FIELD 



# 



/OS/S BASIC LOADEF^ 
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25« 


00647 


3243 




DCA 




STEMPF 




255 


00650 


2010 




ISZ 




X10 


/SKIP TEMP NUMBER 


256 


00651 


1410 




TAO 


I 


X10 


/GET SYM NUMBER 


257 


00652 


3056 




DCA 




TEMP2 




256 


00653 


6201 




CDF 








259 


00654 


1367 




TAO 




(110 


/GIVE IT MAX SIZE 


260 


00655 


3057 




DCA 




TEMP3 




261 


00656 


4260 




J»18 




8VST0R 


/ALOOCATE IT 


262 


00657 


5236 




JMP 




STMLUP 


/LOOP 


263 


00660 


0000 


8VST0R, 









/MAKE ST ENTRY FOR STRING VAR 


26tt 


00661 


1056 




TAO 




TEMP2 


/FIND ST ADDR 


265 


00662 


7104 




CIL 


RAL 






266 


00663 


1056 




TAD 




TEMP2 




267 


00664 


1023 




TAO 




S8TA0R 




26B 


00665 


3011 




DCA 




Xll 




269 


00666 


10S7 




TAD 




TEMP3 


/NUMBER OF CHARS 


270 


00667 


1366 




TAD 




C3 




271 


00670 


7110 




CLL 


RAR 






272 


00671 


306S 




DCA 




SUBLO 


/NUMBER OF WORDS 


273 


00672 


3064 




DCA 




SUBHI 




274 


00673 


4331 




JM8 




SUB 


/FREEHI,LO»FREEHI,LO-SUBHI,LO 


275 


00674 


1054 




TAD 




PREELO 


/SAVE ADDR 


276 


00675 


3411 




OCA 


I 


Xll 




277 


00676 


4777" 




JMS 




FREEF 


/AND FIELD 


278 


00677 


3411 




DCA 


I 


Xll 




279 


00700 


1057 




TAO 




TEMP3 


/PUT IN MAX LENGTH 


280 


00701 


7041 




CIA 






/(NEGATIVE) 


281 


00702 


3411 




DCA 


I 


Xll 




282 


00703 


5660 




JMP 


I 


SV8T0R 




283 


00704 


0000 


P8N, 









/PRINT 3 DIGITS DECIMAL 


28a 


00705 


3061 




DCA 




W0RD2 




285 


00706 


7146 




CLL 


CMA 


RTL 


/-3 


286 


00707 


3104 




OCA 




XLABEL 




287 


00710 


1061 


PRNTSNf 


TAD 




W0RD2 


/GET NEXT DIGIT 


28S 


00711 


7106 




CLL 


RTL 




/INTO THE LOW ORDER 


289 


00712 


7006 




BTL 






/THREE BITS AND THE LINK 


290 


00713 


3061 




DCA 




W0RD2 


/SAVE SHIFTED NUMBER 


291 


00714 


1061 




TAO 




W0R02 


/NOW DO LAST SHIFT 


292 


00715 


7004 




RAL 








293 


00716 


0365 




AND 




(17 


/ONLY FOUR BITS 


294 


00717 


7440 


SPACE, 


SZA 








295 


00720 


5324 




JMP 




NOZERO 


/NOT A ZERO 


296 


00721 


1764* 




TAD 




TTY 


/ANY DIGITS YET 7 


297 


00722 


76S0 




SNA 


CLA 






290 


00723 


5326 




JMP 




LEAO0 


/NO, ITS A LEADING ZERO 


299 


00724 


1363 


NOZERO, 


TAO 




C60 


/MAKE IT ASCII 


300 


00725 


4764* 




JMS 




TTY 


/PRINT DIGIT 


301 


00726 


2104 


LEAO0, 


ISZ 




XLABEL 


/BUMP COUNT 


302 


00727 


5310 




JMP 




PRNTSN 


/MORE OIGITCS) 


303 


00730 


5704 




JMP 


I 


P3N 




304 


00731 


0000 


SUB, 









/DOUBLE SUBTRACT 


305 


00732 


1065 




TAD 




SUBLO 


/SUBTRACT LOWER 


306 


00733 


7161 




CLL 


CML 


CIA 




307 


00734 


1054 




TAD 




FREELO 




308 


00735 


3054 




DCA 




FREELO 





/OS/8 BASIC LOADEK 



309 


00736 


7004 


310 


00737 


1064 


311 


00740 


7041 


312 


00741 


1053 


313 


00742 


3053 


3ia 


00743 


1053 


315 


00744 


7740 


31b 


00745 


5731 


317 


00746 


3102 


3ie 


00747 


3103 


319 


00750 


4762' 


320 


00751 


2402 


321 


00752 


5761' 


322 


00753 


0000 


323 


00754 


6041 


320 


00755 


5354 


325 


00756 


6046 


326 


00757 


7200 


327 


00760 


5753 



TOOBIG, 



TTK, 
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RAL 




/GET 80RR0k( 


TAD 


SU8HI 




CIA 






TAD 


FHEEHI 


/SUBTRACT UPPER 


DCA 


FREEHl 


/SAVE NEW UPPER 


TAD 


FREEHI 


/DID IT FIT ? 


SMA SZA CLA 




JMP I 


SUB 


/YUP 


DCA 


UlNEH 


/CLEAR LINE NUMBER 


OCA 


LINEU 




JMS 


ERMSG 


/WRITE MESSAGE 


2402 




/TOO BIG 


JMP 


A80RTL 


/ABORT RUN 







/PRINT CHAR ON TTY 


TSF 




/WAIT FOR PREVIOUS CHAR 


JMP 


.-1 




TLS 




/PRINT THIS ONE 


CLA 






JMP I 


TTX 





# 



• 



/OS/a BASIC LOADER 









































00761 


2136 




00761 


1712 




00763 


0060 




00764 


1740 




00769 


0017 




00766 


0003 




00767 


0110 




00770 


7777 




00771 


1400 




00772 


2S60 




00773 


2561 




00774 


4010 




00775 


7342 




00776 


1035 




00777 


2130 






1000 




01000 


1054 S 




01001 


7041 




01002 


3107 




01003 


1040 




01004 


1377 




01005 


7041 




01006 


3040 




01007 


1041 




01010 


1377 




01011 


7041 




01012 


3041 




01013 


1042 




01014 


1376 




01015 


7041 




01016 


3042 




01017 


1043 




01020 


1376 




01021 


7041 




01022 


3043 




01023 


4775« 




01024 


3020 




0102S 


1040 




01026 


7104 




01027 


1040 




01030 


1054 




01031 


3054 




01032 


1054 




01033 


7001 




01034 


3021 




0103S 


1054 


380 


01036 


3010 


361 


01037 


3410 


382 


01040 


3410 



PAL8-V8 10/30/72 PAGE 5 

CAUTION til 

THIS PAGE AND THE NEXT ONE ARE 
OVERLAVED BY THE INPUT BUPFEH 
AS SOON AS THE ROUTINE "INMORO" 
IS CALLED, THIS FIRST HAPPENS 
AFTER THE TAG "RELCIT" . 



8TSTUF, 



PAbE 

TAD 


FREELO 


/SAVE START OF RESIDENT -1 


CIA 




/NEGATED 


OCA 


RESADR 


/USED TO COMPUTE AMOUNT OF MOVE 


TAD 


VARCNT 


/GET NUMBER OF 


TAD 


(401 


/VARIABLES 


CIA 






OCA 


VARCNT 




TAD 


SVCNT 


/STRING VARIABLES 


TAO 


(401 




CIA 






DCA 


SVCNT 




TAO 


ACNT 


/ARRAYS 


TAD 


(41 




CIA 






DCA 


ACNT 




TAD 


SACNT 


/AND STRING ARRAYS 


TAO 


(41 




CIA 






DCA 


SACNT 




JMS 


FREEF 


/SAVE HIGH FIELD 


OCA 


8TCDF 




TAD 


VARCNT 


/SUBTRACT SPACE FOR 


CLL RAL 




/SCALAR TABLE (3 WORDS A PIECE) 


TAD 


VARCNT 




TAD 


FREELO 


/DON'T BOTHER WITH A 


OCA 


FREELO 


/DOUBLE PREC. SUBTRACTION 


TAD 


FREELO 


/SAVE START OF SCALAR TABLE 


lAC 




/FOR INTERPRETER 


DCA 


NSTAOR 




TAO 


FREELO 


/CLEAR ALL VARIABLES 


DCA 


X10 


/IN THE 


OCA I 


X10 


/SCALAR TABLE 


DCA I 


X10 
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3S3 
3B4 
385 

386 
387 
388 

389 
390 

391 
392 
393 

39a 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 



01041 

01042 

01043 

01044 

01045 

01046 

01047 

01050 

01051 

01052 

01053 

01054 

01055 

01056 

01057 

01060 

01061 

01062 

01063 

01064 

01065 

01066 

01067 

01070 

01071 

01072 

01073 

01074 

01075 

01076 

01077 

01100 

01101 

01102 

01103 

01104 

01105 

01106 

01107 

01110 

01111 

01112 

01113 

01114 

01115 

01116 

01117 

01120 

01121 

01122 

01123 

01124 

01125 

01126 

01127 



3410 

2040 

5237 

6211 

1774 

3257 

1773 

6201 

7410 

1055 

7450 

5311 

1372 

3010 

6211 

1410 

3055 

1410 

3257 

1410 

3060 

1410 

3061 

1410 

3062 

1410 

3056 

1056 

7104 

1056 

1054 

3011 

6201 

1060 

3411 

1061 

3411 

1062 

3411 

5252 

1042 

7104 

7104 

1054 

3054 

1054 

3022 

1041 

7104 

1041 

1054 

3054 

1054 

3023 

1043 



DCA I 

ISZ 

JMP 

CDF 
PI, TAD I 

DCA 

TAD I 

CDF 

SKP 
NLLOOP, TAD 

SNA 

JMP 

TAD 

OCA 
LFLO, CDF 

TAD I 

DCA 
P2# TAD I 

DCA 

TAD I 

OCA 

TAD I 

OCA 

TAD I 

DCA 

TAD I 

DCA 

TAD 

CUL RAL 

TAD 

TAD 

DCA 

CDF 

TAD 

OCA I 

7A0 

OCA I 

TAD 

DCA I 

JMP 

TAD 

CI.L RAU 

CLL PAL 

TAD 

OCA 

TAD 

DCA 

TAD 

CLL RAU 

TAD 

TAD 

DCA 

TAO 

DCA 

TAD 



X10 

VARCNT 

.-4 /JUST TO 8E NICE 

10 /PREPARE TO MOVE 

(LITRL + l/THE NUMERIC LITERALS f^/"' 

LFLO /INTO THE SCALAR TABLE 

(LITRL 



NONtf 



TEMP 

NOIML 

C-l 

X10 

10 

X10 

TEMP 

X10 

LFLO 

X10 

MOROl 

X10 

M0R02 

%19 

WQR03 

X10 

TEMP2 

TEMP2 

TEMP2 

FREELO 

XU 

MOROl 

Xll 

W0RD2 

Xll 

W0RD3 

Xll 

NLLOOP 

ACNT 



FREELO 
FREELO 
FREELO 
NASTAO 
SVCNT 

SVCNT 

FREELO 

FREELO 

FREELO 

SSTAOR 

SACNT 



/AODR OF NEXT LITERAL 
/NO MORE NUMERIC LITERALS 

/GET ADDR OF NEXT LITERAL 
/ALSO ITS FIELD %i(P 
/NOW ITS VALUE 



/NOM THE SYMBOL NUMBER 
/TIMES THREE 



/PLUS START 
/GIVES STORE ADDR 

/NOW PUT LITERAL INTO TABLE 



/DO NEXT LITERAL 
/ALLOCATE ARRAY TABLE 

/FOUR WORDS PER 
/SUBTRACT FROM LOWER END 

/SAVE THIS 

/START OF ARRAY TABLE 

/ALLOCATE 

/STRING VAR TABLE 

/3 WORDS EACH 

/AND SAVE IT FOR THE INT 

/NOW SPACE FOR STRING 



# 



« 



• 



/08/d BASIC LOADER 



ASS 
439 
440 
441 
442 
443 
444 
44S 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
456 
459 
460 

461 
462 
463 
464 
465 



01130 

01131 

01132 

01133 

01134 

01135 

01136 

01137 

01140 

01141 

01142 

01143 

01144 

01145 

01146 

01147 

0U50 

01151 

01152 

011S3 

01154 

01155 

01156 

01157 

01160 

01161 

01162 

01163 



7104 

7104 

1054 

3054 

1054 

3024 

6211 

1771 

3362 

1770 

6201 

7410 

1055 

7450 

5767* 

1372 

3010 

4361 

1410 

3055 

1410 

3056 

1410 

3063 

5766' 

0000 

62U 

5761 
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P3, 



SLLOOPi 



P4, 



SFLD, 
SLFLO, 



CLL RAL 

CLL. RAL 

TAO 

DCA 

TAD 

OCA 

COF 

TAD 1 

DCA 

TAD I 

COF 

SKP 

TAO 

SNA 

JMP 

TAO 

DCA 

JMS 

TAD I 

DCA 

TAO I 

DCA 

TAO I 

OCA 

JMP 



CDF 

JMP I 



/ARRAV 

FREELO /TABLE 

FREELO 

FREELO /SAVE FOR INT 

SASTAD 

10 /PREPARE TO MOVE 

CSLITRL + 1 </p 

SLFLO /STRING LITERALS 

CSLITRL 



TEMP 

NOSL 

(-1 

X10 

SFLD 

X10 

TEMP 

X10 

TEMP2 

)(10 

NCHARS 

8L1T2 

10 
SFLD 



/IS NEXT LIT THERE 7 
/NO, END OF THE LINE 

/SET THE FIELD 
/GET ADDR OF NEXT 

/ALSO FIELD ^ ,/' f 

/THEN CHAR COUNT 

/DO REST OF STRING LIT 



/OS/8 BASIC LOADEH 
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466 01166 120id 

tt67 01167 1257 

466 01170 2564 

469 01171 2565 

470 01172 7777 

471 01173 2562 

472 01174 2563 

473 01175 2130 

474 01176 0041 

475 01177 0401 

476 1200 

477 01200 1063 SLIT2, 

478 01201 1377 

479 01202 7110 

480 01203 1010 

481 01204 3057 

482 0120S 1457 

483 01206 7104 

484 01207 1457 

485 01210 1023 

486 01211 3011 

487 01212 1063 

488 01213 7001 

489 01214 7170 

490 01215 3057 

491 01216 1057 

492 01217 7100 

493 01220 1054 

494 01221 3054 

495 01222 7420 

496 01223 5337 

497 01224 1054 

498 01225 1376 

499 01226 7630 

500 01227 5337 

501 01230 1054 

502 01231 7001 

503 01232 6201 

504 01233 3411 

505 01234 4775' 

506 01235 3411 

507 01236 1063 

508 01237 7041 

509 01240 3411 

510 01241 1054 

511 01242 3011 

512 01243 1063 

513 01244 7041 

514 01245 5251 

515 01246 4774» MOVSL, 

516 01247 1410 

517 01250 6201 
Sie 01251 3411 

519 01252 2057 

520 01253 5246 



4 



PAGt 

TAD 

TAD 

CLl I^AR 

TAD 

OCA 

TAD 1 

CUU RAL 

TAD I 

TAO 

DCA 

TAO 

lAC 

CLL CML 

DCA 

TAD 

CLL 

TAD 

DCA 

SNL 

JMP 

TAD 

TAO 

8ZL CLA 

JMP 

TAO 

lAC 

CDF 

DCA I 

JMS 

DCA I 

TAD 

CIA 

DCA I 

TAD 

DCA 

TAD 

CIA 

JMP 

JMS 

TAD I 

COP 

DCA 1 

ISZ 

JMP 



NCHARS 
t3 

X10 

TEMP3 

TEMP3 

TEMP3 

SSTADR 

XU 

NCHARS 

CMA RAR 

TeMP3 

TEMP3 

FREELO 
FREELO 

TMSLIT 
FREELO 
(«END»10 

TMSLIT 
FREELO 



/COMPUTE WORD COUNT 

/TO GET AOOR OF SYMBOL NUMBER 

/SYM NUMBER TIMES 3 

/PLUS BASE 
/GIVES ST AODR 
/ALLOCATE SPACE FOR IT 

/CSAVE NUMBER OF MORDS) 

/BELOW THE SYMBOL TABLES 
/TOO MUCH STRING LITERALS 



/DITTO 

/STICK THE ADDR 



XU 

FREEF 

Xll 

NCHARS 

Xll 

FREELO 
Xll 
NCHARS 

.♦« 

SFLD 

X10 

Xll 

TEMP3 

MQVSL 



/INTO THE ST ENTRY 
/ALSO THE FIELD 

/ALSO THE SIZE 



/THIS IS WHERE IT GOES 

/PUT IN THE LENGTH TOO 
/(NEGATIVE) 



/MOVE THE LITERAL TEXT 



# 



OS/6 


BA9IC LOADEK 
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e.^P 


52i 


01254 


1056 


P5, 


TAO 


TEMP2 


/PUT THE FIELD OF THE NEXT 


S22 


01255 


3773» 




DCA 


SLFLO 


/ENTRY WHERE IT DOES THE MOST GOOl 


S23 


01256 


5772* 




JMP 


SLLOOP 


/DO THE NEXT LITERAL 




524 


01257 


1054 


NOSL, 


TAO 


FREEIO 


/SAVE TOP OF DATA LIST 




525 


01260 


3027 




DCA 


OATTOP 






526 


01261 


1027 




TAD 


DATTOP 


/IF EMPTY MAKE TOP»BOTTOM 




527 


01262 


3030 




DCA 


OATPTR 






528 


01263 


1051 




TAD 


OLSIZE 






529 


01264 


7450 




SNA 




/IS ANY DATA ? 




530 


01265 


5771' 




JMP 


NOOATA 


/NO 




531 


01266 


7100 




CLC 








532 


01267 


1054 




TAD 


FREELO 


/GET START OF DATA 




533 


01270 


3054 




DCA 


FREELO 






53a 


01271 


7420 




SNl 








535 


01272 


5332 




JMP 


TMDATA 


/TOO MUCH DATA 




536 


01273 


1054 




TAO 


FREEUO 






537 


01274 


1376 




TAO 


(-ENO-10 




536 


01275 


7630 




SZU CUA 






539 


01276 


5332 




JMP 


TMOATA 


/DITTO 




540 


01277 


1054 




TAO 


FREELO 


/SAVE IT 




541 


01300 


3030 




OCA 


OATPTR 






542 


01301 


1054 




TAD 


FREELO 


/USE X13 TO FILL LIST 




543 


01302 


3013 




DCA 


X13 






544 


01303 


1370 




TAD 


(DATL8T 


-1 




545 


01304 


3010 




DCA 


X10 






54fc 


0130S 


6211 




CDF 


10 






547 


01306 


1410 


OATUUP, 


TAD I 


X10 


/ANY MORE DATA ELEMENTS 7 




548 


01307 


7450 




SNA 








549 


01310 


5771' 




JMP 


NOOATA 






550 


01311 


3055 




DCA 


TEMP 


/SAVE ADOR ^^p 
/GET NEW FIELD 5^4 




551 


01312 


1410 


P8, 


TAO I 


X10 




552 


01313 


3320 




DCA 


OATAFl 


/TWICE ^^f 




553 


01314 


1320 


P9, 


TAD 


OATAFl 




554 


0131S 


3326 




OCA 


0ATAF2 






555 


01316 


105S 




TAO 


TEMP 


/START WITH NEW ELEMENT 




556 


01317 


3010 




OCA 


X10 






557 


01320 


6211 


DATAFl, 


COf 


10 






558 


01321 


1455 




TAD I 


TEMP 


/GET COUNT 




559 


01322 


3055 




DCA 


TEMP 






560 


01323 


1410 


DATMOV, 


TAD I 


X10 


/GET NEXT WORD 




561 


01324 


6201 




CDF 








562 


01325 


3413 




OCA I 


X13 


/MOVE INTO DATA AREA 




563 


01326 


6211 


0ATAF2, 


COF 


10 






564 


01327 


2055 




ISZ 


TEMP 






565 


01330 


5323 




JMP 


DATMOV 






566 


01331 


5306 




JMP 


OATLUP 


/DO NEXT ELEMENT 




567 


01332 


3103 


TMOATA, 


OCA 


UINEL 


/ZERO LINE NUMBER 




566 


01333 


3102 




OCA 


LINEH 






569 


01334 


4767' 




JMS 


ERMSG 


/PRINT ERROR MESSAGE 




570 


01335 


2404 




2404 








571 


01336 


5766* 




JMP 


ABQRTL 






572 


01337 


3102 


TMSLIT, 


OCA 


LINEH 


/CLEAR THE LINE NUMBER 




573 


01340 


3103 




DCA 


LINEL 






574 


01341 


4767' 




JMS 


ERMSG 


/PRINT MESSAGE 




575 


01342 


2423 




2423 









/OS/a BASK LOADER PAU6-V8 10/3(B/72 PAKE 6-2 

JMP ABOHTL 
PUP8»P3»P«»P5|P6»PT»P8|P9|0 



576 


01343 


5766* 


577 


01344 


1045 PATL8T, 


576 


01345 


106^ 


579 


01346 


1137 


580 


01347 


1154 


581 


01350 


1254 


582 


01351 


0632 


563 


01352 


0646 


58U 


01353 


1312 


585 


01354 


1314 


586 


01355 


0000 



/OS/S BASIC LOADER 
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587 


01366 


2136 








588 


01367 


1712 








589 


01370 


2565 








590 


01371 


0600 








591 


01372 


1144 








592 


01373 


1162 








595 


01374 


1161 








59« 


01375 


2130 








595 


01376 


5370 








59ft 


01377 


0003 








597 




1400 


PAGE 






598 


01400 


1042 


ALLOCA, TAD 


ACNT 


/ANY ARRAYS 7 


599 


01401 


7650 


SNA CLA 






600 


01402 


5260 


JMP 


ALLOCS 


/NO 


601 


01403 


1377 


TAD 


(ARAVST 


/ALLOCATE ARRAYS 


602 


01404 


3010 


DCA 


X10 




603 


01405 


1022 


TAD 


NASTAD 




600 


01406 


3011 


OCA 


XU 




60S 


01407 


6211 


OOARAV, CDP 


10 




606 


01410 


1410 


TAD I 


X10 


/OET NEXT ARRAY 


607 


01411 


3055 


DCA 


TEMP 




608 


01412 


1410 


TAD I 


X10 


/GET FIRST DIM 


609 


01413 


7450 


SNA 






610 


01414 


1376 


TAD 


(^2 


/USE 10 IF NONE 


611 


01415 


7001 


lAC 




/ALLOCATE 0TH ELEMENT 


612 


01416 


3056 


DCA 


TEMP2 




613 


01417 


1410 


TAD I 


)(10 


/GET SECOND DIM 


6U 


01420 


7450 


SNA 






61S 


01421 


1376 


TAD 


(12 




616 


01422 


7001 


lAC 






617 


01423 


3057 


DCA 


TEMP3 




618 


01424 


1057 


TAD 


TEMP3 


/GET READY TO SUBTRACT 


619 


01425 


3065 


DCA 


SUBLO 




620 


01426 


3064 


DCA 


SUSHI 




621 


01427 


6201 


CDF 






622 


01430 


T132 


CUl CML 


RTR 




623 


01431 


0055 


AND 


TEMP 


/HOW MANY DIMS 7 


62<ll 


01432 


7650 


SNA CLA 






625 


01433 


5237 


JMP 


ONLYl 


/ONE 


626 


01434 


1056 


TAD 


TEMP2 


/PRODUCT OF DIMS 


627 


01435 


4775* 


JMS 


MUL12 




628 


01436 


5242 


JMP 


TIMES3 


/MULT BY 3 


629 


01437 


3057 


ONLYli DCA 


TEMP3 


/ZERO SECOND DIMENSION 


630 


01440 


1056 


TAD 


TEMP2 




631 


01441 


3065 


OCA 


SUBLO 




632 


01442 


1374 


TIME83, TAD 


(3 


/MULT SIZE BY 3 


633 


01443 


4775* 


JMS 


MUL12 




634 


01444 


4773" 


JMS 


SUB 


/SUBTRACT FROM FREE 


635 


01445 


1054 


TAD 


PREELO 




636 


01446 


3411 


OCA I 


Xll 


/SAVE AODR IN S.T, 


637 


01447 


4772* 


JMS 


FREEF 




638 


01450 


3411 


DCA I 


Xll 




639 


014S1 


1056 


TAD 


TEMP2 


/ALSO DIMS 


640 


01452 


3411 


DCA I 


Xll 




641 


01453 


1057 


TAD 


TEMP3 
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642 01454 34U OCA I 

643 01455 2010 ISZ 

644 01456 2042 ISZ 

645 01457 5207 JMP 

646 01460 104i ALLOCS. TAD 

647 01461 7650 SNA CLA 
64B 01462 5771* JMP 

649 01463 1370 TAO 

650 0146a 3010 DCA 

651 01465 1024 TAD 

652 01466 3011 DCA 

653 01467 6211 DOSARY, CDF 

654 01470 1410 TAO I 

655 01471 7450 SNA 

656 01472 1376 TAD 

657 01473 7001 lAC 

658 01474 3057 DCA 

659 01475 1410 TAO I 

660 01476 7450 SNA 

661 01477 1367 TAD 

662 01500 3056 OCA 

663 01501 1057 TAO 

664 01502 3065 DCA 

665 01503 3064 OCA 

666 01504 6201 CDF 

667 01505 1056 TAP 
66B 01506 1374 TAO 

669 01507 7110 CLL. RAR 

670 01510 4775* JM8 

671 01511 4773' JM8 

672 01512 1054 TAD 

673 01513 3411 OCA I 

674 01514 4772' JMS 

675 01515 3411 OCA I 

676 01516 1056 TAD 

677 01517 7041 CIA 
676 01520 3411 DCA I 

679 01521 1057 TAD 

680 01522 3411 OCA I 

681 01523 2010 ISZ 

682 01524 2010 ISZ 
663 01525 2043 ISZ 

684 01526 5267 JMP 

685 01527 5771' JMP 

686 01530 0000 INWQRO, 

687 01531 2074 ISZ 

688 01532 5345 JMP 

689 01533 4766 JMS I 

690 01534 0200 200 

691 01535 1000 1000 

692 01536 0000 INBLOK, 

693 01537 5765* JMP 

694 01540 2336 ISZ 

695 01541 1335 TAO 

696 01542 3350 OCA 



/SKIP SYMBOL NUMBER 



xu 

)(10 

ACNT 

OOARAY 

SACNT /ANY STRING ARRAYS 



RELCIT /NO 
(SARYST*1 



X10 

SASTAO 

Xll 

10 

X10 

(12 

TEMP3 
X10 

(10 

TEMP2 

TEMP3 

SUBLO 

SU8HI 

TEMP2 
(3 

MUH2 

SUB 

FREELO 

Xll 

FREEF 

Xll 

TEMP2 

Xll 

TEMP3 

Xll 

X10 

X10 

SACNT 

OOSARY 

RELCIT 

ICOUNT 
NOREAD 
(7607 



/ALLOCATE STRING ARRAYS 



/USE 10 FOR OIM 

/GET OIM 

/USE 16 IF NO SIZE SPEC 

/PREPARE FOR MULT 

/GET NUM WORDS PER STRING 



/GET ARRAY SIZE 
/DO SUBTRACTION 
/SAVE AODR 



/AND STRING SIZE 
/(SIZES ARE NEGJ 

/AND NUMBER OF STRINGS 

/SKIP NEXT NAME 
/AND NEXT SYM NUMBER 



/READ FROM CODE FILE 

/ANYTHING IN BUFFER 

/YASSUHJ 

/READ NEXT BLOCK 

/NOTE: THIS OVERLAYS USED CODE 



lOERR 

INBLOK /BUMP BLOCK COUNTER 

INBLOK-1/RESET BUFFER POINTER 

INPTR 



08/8 


BASIC I.OAOER 
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fc9T 


01S4S 1364 




TAD 


(-400 


/AND COUNTER 


698 


01544 3074 




OCA 


ICOUNT 




699 


01545 1750 


NOREAOi 


TAD I 


INPTR 


/GET WORD 


700 


01546 2350 




ISZ 


INPTR 


/8UMP POINTER 


701 


01547 5730 




JMP I 


INWORD 




702 


01550 0000 


INPTR, 
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703 


01564 


74018 






70a 


01565 


2312 






705 


01566 


7607 






706 


01567 


0010 






707 


01570 


2333 






70a 


01571 


1600 






709 


01572 


S130 






710 


01573 


0731 






7ii 


0157« 


0003 






712 


01575 


2254 






713 


01576 


P012 






7U 


01577 


2132 






715 




1600 


PACE 




71fc 


01600 


1045 


RELCZTr TAO 


LOCTRW 


717 


01601 


7101 


C(.L lAC 




71« 


01602 


3065 


DCA 


SUBIO 


7lf 


01603 


7004 


RAL 




720 


01604 


1044 


TAO 


I.OCTRH 


721 


01605 


3064 


DCA 


SUBHX 


722 


01606 


4777* 


JM8 


SUB 


T23 


01607 


1054 


TAO 


FREEUO 


724 


01610 


3026 


DCA 


C0DB6N 


72S 


01611 


1053 


TAO 


FRIENI 


726 


01612 


3015 


OCA 


COOCOF 


727 


01613 


104$ 


TAO 


LOCTRi. 


721 


01614 


7161 


CU CML 


CIA 


72» 


euis 


3066 


OCA 


CODSZl 


TJB 


01616 


7004 


RAl. 




731 


01617 


1044 


TAO 


LOCTRH 


712 


BU20 


7041 


CIA 




751 


01621 


3067 


OCA 


C00SZ2 


734 


01622 


1046 


TAO 


BIOCK 


735 


• 1623 


3776* 


OCA 


OUBiOK 


71» 


01624 


1046 


TAD 


BtOCK 


717 


01625 


3775* 


OCA 


INBiOK 


731 


01626 


1374 


TAO 


(•401 


7W 


01627 


3075 


OCA 


OCOUNT 


740 


01630 


7240 


Ci,A CMA 




741 


01631 


3074 


OCA 


ICOUNT 


742 


01632 


fl773* 


RELOOF, JNS 


INWORO 


743 


01633 


3055 


DCA 


TEMP 


744 


01634 


1372 


TAO 


(3000 


745 


01635 


1055 


TAO 


TEMP 


74* 


01636 


0371 


AND 


(7000 


747 


01637 


7640 


SZA CIA 




746 


01640 


5303 


JUP 


NOREUC 


749 


01641 


1055 


TAO 


TEMP 


750 


01642 


0370 


AND 


(340 


751 


01643 


7112 


CLU RTR 




7S2 


01644 


1264 


TAO 


CUf0 


753 


01645 


3254 


DCA 


LBLfLD 


754 


01646 


105S 


TAO 


TEMP 


755 


01647 


0367 


AND 


(7437 


756 


01650 


3055 


OCA 


TEMP 


757 


01651 


0773" 


JMS 


INWORO 



/FIND START OF CODE 
/BY SUBTRACTING 
/AMOUNT FROM FREE 

/THIS IS THE START OF THE CODE 

/MINUS ONE 

/THIS IS THE FIELD NUMBER 

/SET UP PROG SIZE COUNT 

/UOWER COUNT 



/UPPER COUNT 

/SET UP FOR READ AND WRITE 



/GET A WORD OF CODE 



/CHECK FOR OPCODE 5000 (GOTO) 



/NO JUMP 

/REMOVE FIELD BITS 



/FIELD OP LABEL ENTRY 
/ZERO FIELD BITS 



/GET REST OF ADOS 



/os/a 


BAaiC 


LOADER 
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758 


01652 


3056 




DCA 


TEMP2 




759 


01653 


4766* 




JM8 


CHKLBU 


/CHECK FOR UNOEFINEO LABEL 


760 


01654 


7402 


LBLFLD 


, HLT 






761 


01655 


1456 




TAO I 


TEMP2 




762 


016S6 


0365 




AND 


(7 


/GET ADDS TO BE REtOCATED 


763 


01657 


3070 




OCA 


UOCHI 




764 


01660 


2056 




ISZ 


TEMP2 




765 


01661 


1456 




TAD I 


TEMP2 




766 


01662 


7100 




CLL 






767 


01663 


1026 




TAO 


C00B6N 


/ADD BASE AODR 


76S 


01664 


6201 


CDF0, 


CDF 






769 


01665 


3071 




DCA 


LOCIlO 


/SAVE LOW PART OF JUMP 


770 


01666 


7004 




RAL 






771 


01667 


1025 




TAD 


COOCOF 


/GET HIGH PART 


772 


01670 


1070 




TAD 


LOCHI 




773 

774 


01671 
01672 


7106 

7006 




CLi. RTU 
RTL 


/PUT IT INTO CORRECT PLACE 


775 


01673 


7004 




RAU 






776 


01674 


1055 




TAO 


TEMP 


/PLUS INSTRUCTION 


777 


01675 


4764' 




JMS 


OUTWRD 




776 


01676 


2066 




ISZ 


COOSZl 


/BUMP COUNTER 


779 


01677 


7410 




SKP 






780 


01700 


2067 




ISZ 


C00SZ2 


/CAN'T BE LAST WORD 


781 
782 


01701 
01702 


1071 
7410 




TAO 
SKP 


LOCLO 


/OUTPUT LOW ORDER ADOR 


783 


01703 


1055 


NORELCi 


TAO 


TEMP 


/JUST OUTPUT IT 


784 


01704 


4764* 


RELOUT, 


JM8 


OUTWRO 




785 


01705 


2066 




ISZ 


CODSZl 


/DOUBLE WORD ISZ BUMP 


786 


01706 


5232 




JMP 


RELOOP 




787 


01707 


2067 




ISZ 


CO0SZ2 




788 


01710 


S232 




JMP 


REUOOP 




789 


01711 


5763* 




JMP 


LOAOIT 


/DONE RELOCATING, GO LOAD 


790 


01712 


0000 


ERMS6, 







/PRINT ERROR MESSAGE 


791 


01713 


6201 




CDF 






792 


01714 


1712 




TAO I 


ERMSG 


/GET CODE 


793 
794 


01715 
01716 


7112 
7012 




CUL RTR 
RTR 




/PRINT FIRST CHAR 


795 


01717 


7012 




RTR 






796 


01720 


4340 




JM8 


TTY 




797 


01721 


1712 




TAO I 


ERMSG 


/PRINT SECOND CHAR 


796 


01722 


4340 




JMS 


TTV 




799 


01723 


2312 




ISZ 


ERMSG 


/FIX RETURN AOOR 


800 


01724 


1762* 




TAD 


SPACE 


/PRINT SPACE 


801 


01725 


4340 




JMS 


TTY 




802 


01726 


3340 




OCA 


TTY 


/USE TTY AS A SWITCH 


803 


01727 


1102 




TAD 


LINEH 


/PRINT HIGH ORDER 


804 


01730 


476l» 




JMS 


PSN 




805 


01731 


1103 




TAO 


LINEL 


/THEN LOW ORDER 


806 


01732 


4761' 




JMS 


PSN 


/(LINE NUMBER NATCH 1) 


807 
808 


01733 
01734 


1360 
4757' 




TAD 
JMS 


(215 
TTX 


/PRINT CARRIAGE RETURN 


809 


01735 


1356 




TAO 


(212 


/PRINT LINE FEED 


fiiei 


01736 


4757' 




JMS 


TTX 




811 


01737 


5712 




JMP I 


ERMSG 


/RETURN 


812 


017412) 


0000 


TTY, 







/CONVERT TO ASCII AND PHJNT 



/OS/8 BASIC LOADER 



813 


01741 


0355 


8t« 


01742 


1354 


815 


01743 


7510 


816 


01744 


1353 


817 


01745 


1352 


818 


01746 


4757* 


819 


01747 


5740 





PAl.8«ve 
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AND 
TAD 


(77 

(-40 


/SIX BITS ONLY 

/WHAT SIDE OF FORTY 7 


SPA 

TAD 
TAD 
JMS 
JMP I 


(100 
(240 
TTX 
TTY 


/I.OW SIDE 
/HIGH SIDE 
/PRINT CHAR 
/RETURN 



/D8/8 BASIC LOAOEH 
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S20 


01752 


0240 










621 


01753 


0100 










S22 


01754 


7740 










S23 


01755 


0077 










Bin 


01756 


0212 










825 


01757 


0753 










826 


01760 


0215 










827 


01761 


0704 










828 


01762 


0717 










829 


01763 


2000 










830 


01764 


2336 










831 


01765 


0007 










832 


01766 


2105 










833 


01767 


7437 










B3tt 


01770 


0340 










835 


01771 


7000 










836 


01772 


3000 










837 


01773 


1530 










838 


01774 


7377 










639 


01775 


1536 










6a0 


01776 


2363 










8«l 


01777 


0731 










642 




2000 




PAGE 






843 


02000 


4777» 


LOADITf 


JMS 


OUDUMP 


/DUMP LAST BLOCK 


844 


02001 


1045 




TAO 


LOCTRL 


/SET UP COUNTER 


845 


02002 


7161 




CIA CLl 


CML 




646 


02003 


3066 




DCA 


CODSZl 




647 


02004 


7004 




RAU 






648 


02005 


1044 




TAO 


LOCTRH 




649 


02006 


7041 




CIA 






650 


02007 


3067 




DCA 


CODSZe 




851 


02010 


1026 




TAO 


C00B6N 




852 


02011 


305S 




OCA 


TEMP 


/CODE BEGIN -1 


853 


02012 


1046 




TAD 


BLOCK 


/SET UP BLOCK NUMBER 


854 


02013 


3776* 




DCA 


INBLOK 




855 


02014 


7240 




CLA CMA 






856 


02015 


3074 




DCA 


ICOUNT 




857 


02016 


1025 




TAD 


CODCDF 


/SET UP CODE CDF 


856 


02017 


7106 




CLL RTL 






859 


02020 


7004 




RAL 






860 


02021 


1375 




TAO 


(6201 




861 


02022 


3025 




OCA 


COOCOF 




862 


02023 


1025 




TAO 


CODCDF 




863 


02024 


3233 




DCA 


CF 




864 


02025 


2055 


UOOLUP, 


ISZ 


TEMP 


/BUMP POINTER 


865 


02026 


5232 




JMP 


NOFJMP 


/FIELD IS OK 


666 


02027 


1233 




TAO 


CF 


/BUMP THE FIELD 


867 


02030 


1374 




TAD 


(10 




868 


02031 


3233 




OCA 


CF 




869 


02032 


4773' 


NOFJMP, 


JMS 


INMORD 


/GET NEXT WORD 


870 


02033 


7402 


CF, 


HLT 






671 


02034 


3455 




OCA I 


TEMP 


/SAVE THE WORD 


872 


02035 


6201 


CDFZER, 


CDF 






873 


02036 


2066 




ISZ 


CODSZl 


/MORE CODE ? 


874 


02037 


5225 




JMP 


LODUUP 


/YES 



/08/8 


BASIC 1. 


OADEN 






P 


AL8-V8 
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6T5 


02040 


2067 




ISZ 




C00SZ2 




976 


02041 


5225 




JMP 




LODLUP 


/YES 


B77 


02042 


1239 




TAO 




CF 


/GET THE FIELD 


870 


02043 


3261 




DCA 




CUEARF 


/AND SAVE IT 


879 


02044 


1106 


CLRLUPf 


TAO 




CLRENO 


/IS THIS THE END OF CLEAR ? 


880 


02045 


1055 




TAD 




TEMP 




881 


02046 


7640 




SZA 


CLA 






882 


02047 


5254 




JMP 




MORCLR 


/NO, KEEP GOING 


883 


02050 


110i> 




TAO 




CLRFLD 


/DO FIELDS MATCH ? 


88a 


02051 


1261 




TAO 




CLEARF 




865 


02052 


7650 




SNA 


CLA 






886 


02053 


5264 




JMP 




DONCUR 


/YES, ARRAYS ARE CLEARED 


687 


020S4 


2055 


MORCLR» 


ISZ 




TEMP 


/BUMP POINTER 


888 


02055 


5261 




JMP 




CUEARF 


/DON'T BUMP FIELD 


889 


02056 


1261 




TAO 




CLEARF 


/DO BUMP FIELD 


890 


02057 


1374 




TAO 




(10 




891 


02060 


3261 




OCA 




CLEARF 




892 


02061 


7402 


CLEARPi 


HLT 








893 


02062 


3455 




DCA 


I 


TEMP 


/CLEAR THE MORO 


894 


02063 


5244 




JMP 




CLRLUP 


/DO MORE 


895 


02064 


1261 


DONCIR, 


TAO 




CLEARF 


/COPY THE FIELD 


896 


02065 


3277 




OCA 




STFLDM 




897 


02066 


10SS 




TAO 




TEMP 


/GET THE COUNT 


898 


02067 


1107 




TAD 




RESADR 


/OF HOW MUCH SYMBOL TABLE 


899 


02070 


3056 




DCA 




TEMP2 


/TO MOVE 


900 


02071 


10SS 




TAD 




TEMP 


/PUT IT INTO AUTO XR'S 


90J 


02072 


3013 




DCA 




X13 




902 


02073 


1013 




TAO 




X13 




903 


02074 


3011 




OCA 




Xll 




90a 


02075 


6201 


MOVSTt, 


COP 








905 


02076 


1411 




TAO 


I 


xu 


/GET NEXT WORD OF ST 


906 


02077 


7402 


STFLDM, 


HI.T 








907 


02100 


3413 




OCA 


I 


X13 


/STORE IT 


908 


02101 


2056 




ISZ 




TEMP2 




909 


02102 


527S 




JMP 




MOVSTL 




918 


02103 


43a0 




JMS 




MOVFIN 


/MOVE FIN! PAGE INTO 7000-71 


911 


02104 


5772' 




JMP 




7000 


/GO READ BRTS.SV 


912 


02105 


0000 


CHKUBL, 









/CHECK LABEL FOR UNDEF 


913 


02106 


1705 




TAO 


I 


CHKLBL 


/GET FIELD 


9ia 


02107 


3310 




OCA 




t*l 




915 


02110 


7402 




HLT 








916 


02111 


1456 




TAD 


I 


TEMP2 


/GET FIRST WORD OF LABEL 


917 


02112 


771B 




SPA 


CLA 






918 


02113 


5705 




JMP 


I 


CHKLBL 


/SIGN BIT IS DEFINED 


919 


02114 


7144 




CLL 


CMA 


RAL 


/GET AOOR OF LINE NUM 


920 


02115 


1056 




TAD 




TEMP2 




921 


02116 


3104 




DCA 




XLABEL 




922 


02117 


1504 




TAO 


I 


XLABEL 


/GET HIGH ORDER LINE 


923 


02120 


3102 




DCA 




UNEH 




924 


02121 


2104 




ISZ 




XLABEL 




925 


02122 


1504 




TAD 


I 


XLABEL 


/GET LOW ORDER 


926 


02123 


3103 




DCA 




LINEL 




927 


02124 


6201 




COF 








92S 


02125 


4771' 




JMS 




ERMSG 


/PRINT MESSAGE 


929 


02126 


2523 




2523 
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930 


02127 


5705 




JMP 


I 


CHKUBL 


/RETURN 




02130 


0000 


FREEP, 









/MAKE A CDF FROM FREEMI 




02131 


1053 




TAD 




FREEHI 






02132 


7106 




CUU 


RTL 






02133 


7004 




RAL 










02134 


1235 




TAD 




CDFZER 






02135 


5730 




JMP 


I 


FREEF 






02136 


4340 


ABORTU, 


JMS 




MOVFIN 


/PUT FINI PAGE INTO 700 
















/AND ABORT THE RUN 




02137 


5770 




JMP 


I 


(ABORT- 


FINI4'7000 




02140 


0000 


MOVFIN, 









/FINI PAGE MOVER 




02141 


6201 




CDF 










02142 


1567 




TAD 




(FINI-1 


/MOVE INT READING CODE 




02143 


3010 




DCA 




X10 






02144 


1366 




TAD 




(6777 


/INTO 7000 




02145 


3011 




OCA 




XU 






02146 


1365 




TAD 




C-200 






02147 


3055 




DCA 




TEMP 


/PUT CORRECT COUNT MERE 




02150 


1410 




TAD 


I 


xie 






02151 


3411 




OCA 


I 


XU 


/MOVE CODE 




02152 


2055 




ISZ 




TEMP 






02153 


5350 




JMP 




.-3 






02154 


5740 




JMP 


I 


MOVFIN 
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953 


02165 


7600 










95* 


02166 


6777 










9SS 


02167 


2177 










95h 


02170 


7115 










95T 


02171 


1712 










958 


02172 


7000 










959 


02173 


1530 










960 


02174 


0010 










961 


02175 


6201 










962 


02176 


1536 










963 


02177 


2357 










964 




2200 




PAG£ 






965 


02200 


16S1 


FINI, 


TAD I 


XEPMSG 


/ANY ERRORS ? 


966 


02201 


7640 




SZA CLA 






967 


02202 


5315 




JMP 


ABORT 


/YES, DON'T RUN IT 


968 


02203 


1250 




TAD 


XINT 


/MOVE INT STUFF 


969 


02204 


3301 




DCA 


FTEMP 




970 


02205 


1247 




TAD 


M12 


/10 KEY LOCATIONS 


971 


02206 


3303 




DCA 


FCNT 




972 


02207 


1253 




TAD 


XSAVE 


/INTO A SAFE PLACE 


973 


02210 


3302 




OCA 


FTEMP2 




974 


02211 


1701 




TAD I 


FTEMP 




975 


02212 


2301 




ISZ 


FTEMP 




976 


02213 


3702 




DCA I 


FTEMP2 




977 


02214 


2302 




ISZ 


FTEMP2 




978 


02215 


2303 




ISZ 


FONT 




979 


02216 


5211 




J MP 


,-5 


/MOVE LOOP 


980 


02217 


1050 




TAD 


BRTS 


/READ IN BRTS 


981 


02220 


3224 




OCA 


BRTSB 




982 


02221 


4652 




JMS I 


X7607 




983 


02222 


3400 




BRT8IZ 






984 


02223 


0000 











985 


02224 


0000 


BRTSB, 









966 


02225 


5312 




JMP 


lOERR 




987 


02226 


12S3 




TAD 


XSAVE 




988 


02227 


3301 




DCA 


FTEMP 




989 


02230 


1250 




TAO 


XINT 


/MOVE STUFF BACK 


990 


02231 


3302 




OCA 


FTEMP2 




991 


02232 


1247 




TAD 


M12 




992 


02233 


3303 




DCA 


FCNT 




993 


02234 


1701 




TAD I 


FTEMP 




994 


02235 


2301 




ISZ 


FTEMP 




995 


02236 


3702 




DCA I 


FTEMP2 




996 


02237 


2302 




ISZ 


FTEMP2 




997 


02240 


2303 




ISZ 


FCNT 




998 


._0.?e«i 


5234 




JMP 


.-5 




'999 


02242 


1377 




TAD 


C5S61 


/PATCH -C LOCATION! 


1000 


02243 


3776' 




DCA 


7600 




1001 


02244 


1377 




TAD 


(5561 




1002 


02245 


3775' 




DCA 


7605 




1003 


02246 


5774* 




JMP 


BRTBGN 


/GO START BRTS 


1004 


M24f 


f7«6 


Ml 2, 


-12 


-, 




1005 


02250 


0020 


XINT, 


20 






1006 


02251 


1712 


XEBMSG, 


ERMSG 






1007 


0S252 


7607 


X7607, 


7607 
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1008 


02253 


7054 


XSAVE, 


7001«)(SAVE-FZM 




1009 


02254 


0000 


MUt.l2i 







/MULTIPLY 12BIT8 AND 24 BITS 


1010 


02255 


3100 




DCA 


AC3 


/SAVE 12 BIT THING 


1011 


02256 


3077 




OCA 


AC2 


/CLEAR REST OF AC 


1012 


02257 


3076 




OCA 


ACl 




1013 


02260 


1373 




TAD 


(-15 


/ONLY TEST 12 BITS 


1014 


02261 


3101 




DCA 


SC 




1015 


02262 


5300 




JMP 


MULBGN 




1016 


02263 


7420 


MULLUP, 


SNL 




/WAS BIT ON ? 


1017 


02264 


5272 




JMP 


NOAOO 


/N0| DON'T ADD 


1018 


02265 


1065 




TAD 


SUBLO 


/ADD TO HIGH ORDER 2/3'S OF AC 


1019 


02266 


1077 




TAD 


AC2 




1020 


02267 


3077 




DCA 


AC2 




1021 


02270 


7024 




CML RAL 






1022 


02271 


1064 




TAD 


SUBHI 




1023 


02272 


1076 


NOADOi 


TAD 


ACl 


/SHIFT AC RIGHT 


1024 


02273 


7110 




CLL RAR 






102S 


02274 


3076 




DCA 


ACl 




1026 


02275 


1077 




TAD 


AC2 




1027 


02276 


7010 




RAR 






1028 


02277 


3077 




DCA 


AC2 




1029 


02300 


1100 


MULBGN, 


TAD 


AC3 




1030 


02301 


7010 


FTEMP, 


RAR 






1031 


02302 


3100 


FTEMP2, 


OCA 


AC3 




1032 


02303 


2101 


FCNT, 


ISZ 


SC 


/BUMP SHIFT COUNTER 


1033 


02304 


5263 




JMP 


MUI.LUP 




1034 


02305 


1077 




TAD 


AC2 


/ANSWER IS LOWER 2/3'S OF AC 


1035 


02306 


3064 




DCA 


SUBHI 




1036 


02307 


1100 




TAD 


AC3 




1037 


02310 


3065 




DCA 


SUBLO 




1038 


02311 


5654 




JMP 1 


MUL12 




1039 


02312 


3103 


lOERRf 


DCA 


LINEL 


/ZERO LINE NUMBER 


1040 


02313 


4651 




JM8 I 


XERMS6 


/PRINT MESSAGE 


1041 


02314 


Ut7 




1117 






1042 


02315 


4772' 


ABORT, 


JM8 


SWAP 


/SWAP 088 BACK 


1043 


02316 


6041 




TSF 




/WAIT FOR TTY DONE 


1044 


02317 


5316 




JMP 


."1 


/TO PREVENT 088 , FROM BEING Rl 


1045 


02320 


1371 




TAD 


( 420J 


/RFSTOUE -C LOCATIONS 


1046 


02321 


3776* 




DCA 


7600 




1047 


02322 


1370 




TAD 


C62t3 




1048 


02323 


3775* 




DCA 


7605 




1049 


02324 


1052 




TAD 


ABORTX 


/CALLED VIA CHAIN ?(FROM EDIT) 


1050 


02325 


7450 




SNA 






1051 


02326 


5775" 




JMP 


7605 


/NO, RETURN TO 088 


1052 


02327 


3333 




DCA 


EDTBLK 


/YES, SAVE EDITOR START 


1053 


02330 


4652 




JMS I 


X7607 


/READ IN EDITOR 


1054 


02331 


1600 




iDT8:z 




/THIS MUCH 


1055 


02332 


0000 











1056 






QWTEMP, 








1057 


02333 


0000 


EDTBLK, 









1058 


02334 


5775» 




JMP 


7605 


/ERROR 


1059 


02335 


5767' 




JMP 


EDTBGN 


/GO START EDITOR 


1060 


02336 


0000 


OUTWRO, 







/OUTPUT WORD TO TEMP FILE 


1061 


02337 


2075 




ISZ 


QCOUMT 


/ANY ROOM 7 


1062 


02340 


5S51 




JMP 


NOWRIT 


/YES 



/05/a 


BASIC UOADEK 






PAU6-V8 


10/30/72 PAGE ia-2 


1063 


02341 


3333 




DCA 


OtoTEMP 


/SAVE WORD 


1064 


02342 


4357 




JMS 


OUOUMP 


/WRITE BLOCK 


1065 


02343 


2363 




ISZ 


OUBLOK 


/BUMP BLOCK NUMBEK 


1066 


02344 


1362 




TAO 


OUBLOR- 


l/RESET BUFFET POIN 


1067 


02345 


3356 




DCA 


OUPTR 




1068 


02346 


1366 




TAD 


(.400 




1069 


02347 


3075 




OCA 


OCOUNT 


/AND COUNT 


10T0 


023S0 


1333 




TAO 


OWTtMP 


/RESTORE AC 


1071 


02351 


6211 


NOWRIT> 


COF 


10 




1072 


02352 


3756 




DCA I 


OUPTB 


/INTO BUFFER 


1073 


-02353 


6201 




CDf 






I07fl 


02354 


2356 




ISZ 


OUPTR 




1075 


02355 


5736 




JMP 1 


QUTWRO 




1076 


02356 


0000 


OUPTR, 









1077 


02357 


0000 


OUDUMP, 







/WRITE BLOCK 


1078 


02360 


4652 




JMS I 


X7607 


/WRITE BLOCK 


1079 


02361 


4210 




4210 






1080 


02362 


0000 











1081 


02363 


0000 


OUBtOK, 









1082 


02364 


5312 




JMP 


lOERR 




1083 


02365 


5757 




JMP I 


DUOUMP 




1084 




2400 




ENO«FINI«200 




1085 


02366 


7400 










1086 


02367 


3012 










1087 


02370 


6213 










1088 


02371 


4207 










1089 


02372 


0461 










1090 


02373 


7763 










1091 


02374 


0200 










1092 


02375 


7603 










1093 


02376 


7600 










1094 


02377 


5561 










1095 








S 
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ABORT 


2315 


ICOUNT 


0074 


P2 


1062 


TTY 


1740 


ABORTL 


2136 


INBLOK 


1536 


P3 


1137 


VARCNT 


0040 


ABORTX 


0052 


INPTR 


1550 


P4 


1154 


VERSON 


0100 


ACNT 


0042 


INMORO 


1530 


P5 


1254 


MOROl 


0060 


ACt 


0076 


lOERR 


2312 


P6 


0632 


M0R02 


0061 


AC2 


0077 


UBLFLD 


1654 


P7 


0646 


W0R03 


0062 


AC3 


0100 


LEAO0 


0726 


P8 


1312 


XERMSG 


2251 


AUUOCA 


1400 


LFLD 


1057 


P9 


1314 


XIIMT 


2250 


ALLOCS 


1460 


LINEH 


0102 


RELCIT 


1600 


XLABEL 


0104 


ARAYST 


2132 


LINEL 


0103 


RELOOP 


1632 


XSAVE 


2253 


ASVLUP 


0614 


LITRL 


2562 


RELOUT 


1704 


X10 


0010 


BLOCK 


0046 


LOADER 


0400 


RESADR 


0107 


xu 


0011 


BRTBGN 


0200 


I.OADIT 


2000 


SACNT 


0043 


X13 


0013 


BRTS 


0050 


LOCHI 


0070 


SARY8T 


2332 


X7607 


2252 


BRTSB 


2224 


LOCLO 


0071 


8A8TA0 


0024 






BRT9IZ 


3400 


LOCTRH 


0044 


SC 


0101 






COFZER 


2035 


LOCTRL 


0045 


SFLD 


1161 






CDP0 


1664 


LODLUP 


2025 


SLFLO 


1162 






CP 


2033 


L6221 


0476 


8LITRL 


2564 






CHKLBL 


2105 


L7600 


0477 


SLIT2 


1200 






CLEARF 


2061 


MORCLR 


2054 


8LL00P 


1144 






CLREND 


0106 


MOVFIN 


2140 


SPACE 


0717 






CLRFLO 


0105 


MOVSL 


1246 


SSTAOR 


0023 






CLRLUP 


2044 


M0V8TL 


207S 


STACK 


0015 






CODB 


0072 


MULBGN 


2300 


STACKA 


7120 






COOBGN 


0026 


MULLUP 


2263 


8TC0F 


0020 






CODCDF 


0023 


MUL12 


2254 


8TEMPF 


0643 






CODF 


0073 


M12 


2247 


STEMPS 


2560 






CODSZl 


0066 


NASTAD 


0022 


STFLDM 


2077 






C008Z2 


0067 


NCHARS 


0063 


STMLUP 


0636 






OATAFl 


1320 


NLLOOP 


1052 


8TSTUF 


1000 






DATAF2 


1326 


NOAOD 


2272 


SUB 


0731 






DATLST 


2566 


NOOATA 


0600 


SUBHl 


0064 






OATLUP 


1306 


NOFJMP 


2032 


SUBLO 


0065 






OATMOV 


1323 


NONL 


nil 


SVARST 


1036 






DATPTR 


0030 


NOPATC 


0433 


8VCNT 


0041 






DATTOP 


0027 


NOREAO 


1545 


8V8T0R 


0660 






OCB 


7760 


NORELC 


1703 


SWAP 


0461 






DLSIZE 


0051 


NOSL 


1257 


SMPFLA 


0514 






OOARAY 


1407 


N0T08E 


0450 


8WPF1 


0536 






DONCLR 


2064 


NOWRlT 


2351 


8KPF2 


0545 






DOSARY 


1467 


NOZERO 


0724 


SloPINF 


0031 






E0TB6N 


3012 


NSTAOR 


0021 


8WPRET 


0511 






EDTBLK 


2333 


OCOUNT 


0075 


SWPSUB 


0515 






EDTSIZ 


1600 


ONLYl 


1437 


SWPl 


0534 






END 


2400 


OUBLOK 


2363 


8WP2 


0547 






ERIiSG 


1712 


OUOUWP 


2357 


T08ESY 


0472 






FCNT 


2303 


OUPTR 


2356 


TEMP 


0055 






FINI 


2200 


OUTWRD 


2336 


TEMP2 


0056 






FREEF 


2130 


OWTEMP 


2333 


TEMPS 


0057 






FREEHX 


0053 


PATLST 


1344 


TIMES3 


1442 






FREELO 


0054 


PATLUP 


0424 


TMOATA 


1332 






FTEMP 


2301 


PHNTSN 


071ia 


TMSLIT 


1337 






FTEMP2 


2302 


PSN 


0704 


TOOBIG 


074k 






HJFLO 


0047 


PI 


1045 


TTX 


0753 







ERRORS detected: B 

1096 

LINKS GENERATED! b8 

1097 



# 



ABORT 


939 


967 


1042« 












ABQRTL 


321 


571 


576 


937# 










ABORTX 


43* 


44 


1049 












ACNT 


3Si 


36 


361 


364 


423 


598 


644 




ACl 


63« 


64 


1012 


1023 


1025 








AC2 


64* 


65 


1011 


1019 


1020 


1026 


1028 


1034 


ACS 


65# 


66 


1010 


1029 


1031 


1036 






AULOCA 


247 


598i 














ALLOCS 


600 


646* 














ARAVST 


74« 


601 














A8VUUP 


227# 


239 














BLOCK 


39# 


40 


734 


736 


853 








BRTBGN 


as« 


1003 














BRTS 


41# 


42 


980 












BRTSB 


981 


985i 














BRTSIZ 


84* 


983 














CDFZER 


872« 


935 














core 


7S2 


768« 














CF 


863 


866 


868 


870* 


877 








CHKLBL 


759 


912# 


913 


918 


930 








CLEARF 


878 


884 


888 


889 


891 


B92« 


895 




CLSEND 


7l# 


72 


221 


879 










CLRFLO 


70# 


71 


2tB 


883 










CLI»LUF 


879« 


894 














CODB 


59III 


60 














COOBGN 


29« 


30 


724 


767 


851 








CODCOF 


28« 


29 


726 


771 


857 


861 


862 




GOOF 


60* 


61 














C0D8Z1 


55« 


56 


729 


778 


785 


846 


873 




C0DSZ2 


S6# 


57 


733 


780 


787 


850 


875 




DATAFl 


552 


553 


557i 












DATAF2 


534 


563* 














DATLST 


79# 


544 














DATLUP 


547# 


566 














OATMOV 


560# 


565 














OATPTR 


31« 


32 


527 


541 










DATTOP 


30« 


31 


525 


526 










OCB 


8S# 


lis 














OLSIZE 


42# 


43 


528 












DOARAY 


605« 


645 














OONCLR 


886 


895* 














OOSARY 


653* 


684 














CDTBGN 


Sll 


1059 














EDTBLK 


10S2 


1057# 














EOTSIZ 


82« 


1054 














END 


498 


537 


1084* 












ERM8G 


99 

1006 


319 


569 


574 


79e# 


792 


797 


799 811 928 


FCNT 


971 


978 


992 


997 


1032* 








FINI 


939 


942 


965# 


1908 


1084 








FREEF 


129 


216 


277 


369 


505 


637 


674 


931« 936 


FREEHI 


44* 


45 


88 


312 


313 


314 


725 


932 


FREELO 


4SIII 


46 


90 


125 


219 


222 


275 


307 30B 350 




374 


375 


376 


379 


413 


426 


427 


426 433 434 




435 


44^9 


441 


442 


493 


494 


497 


501 510 524 




532 


533 


536 


540 


542 


635 


672 


723 


FTEMP 


969 


974 


975 


986 


993 


994 


1030* 




FTEMP2 


973 


976 


977 


990 


995 


996 


1031# 




HIFlD 


40« 


41 


87 


102 











ICOUMT 


61* 


6d 


687 


698 


/a\ 856 


IN9L0K 


b92« 


694 


695 


737 


651 


INPTR 


696 


699 


700 


702# 




INWORO 


bSb« 


701 


742 


757 


869 


lOERH 


693 


986 


1039* 


1082 




LBLFLO 


753 


760« 








UEAO0 


298 


301* 








LFLO 


388 


397# 


401 






LINEH 


67« 


66 


92 


317 


568 572 803 923 


LINEL 


6e« 


69 


93 


318 


567 573 805 926 


LITRL 


77# 


78 


367 


389 




LOADER 


87# 










LOADIT 


789 


843* 








LOCHI 


57# 


58 


763 


772 




LOCLO 


56* 


59 


769 


781 




LOCTRH 


37# 


36 


720 


731 


848 


LDCTRU 


3B# 


39 


716 


727 


844 


tODLUP 


664* 


874 


876 






L62ai 


ia9iii 


196 








L7600 


150* 


173 








MORCUR 


6S2 


687* 








MOVFIN 


910 


937 


940« 


952 




MOVSL 


515# 


520 








MOVSTL 


90«« 


909 








MULBGN 


1015 


1029* 








MULUUP 


1016« 


1033 








MU112 


627 


633 


670 


1009* 


1036 


M12 


970 


991 


1004# 






NASTAO 


25# 


26 


429 


603 




NCHARS 


52« 


53 


461 


477 


487 507 512 


NLLOOP 


392« 


422 








NOADO 


1017 


1023# 








NOOATA 


215« 


530 


549 






NOFJMP 


865 


969» 








NONL 


394 


423# 








NOPATC 


104 


ua« 








NOREAO 


686 


699« 








NOREUC 


748 


783# 








NOSL 


452 


524# 








NOTDSE 


123 


1?7# 








NOWRIT 


1062 


107U 








NOZERO 


295 


299# 








NSTADR 


24« 


25 


376 






OCOUNT 


62* 


63 


739 


1061 


lt*69 


ONLVl 


625 


629# 








0U8t0K 


735 


1065 


1066 


1081* 




OUOUMP 


843 


1064 


1077# 


1083 




OUPTR 


1067 


1072 


1074 


1076« 




QUTWRO 


777 


784 


1060* 


1075 




OWTEMP 


1056* 


1063 


1070 






PATLST 


105 


b77# 








PATLUP 


107# 


113 








PRNTSN 


267* 


STii 








PSN 


283* 


303 


804 


806 




PI 


387# 


577 








P2 


40»« 


576 








P3 


a45« 


579 








Pa 


458# 


bftiiJ 








P5 


b?!* 


581 








Pb ^ 


?ai« 


tJSe! 









1039 



# 



P7^^ 


253« 


583 












^ 


■r 




P6 


551# 


584 


















P9 


553# 


585 


















REICIT 


h«B 


685 


716* 
















REIOOP 


742* 


786 


788 
















RELOUT 


784# 




















RESAOR 


72# 


352 


898 
















SACNT 


36« 


37 


365 


368 


437 


646 


683 








SARV8T 


75# 


649 


















SASTAD 


27# 


28 


443 


651 














9C 


fc6« 


67 


1014 


1032 














SPLD 


455 


463* 


465 


515 














SLFLD 


446 


464* 


322 
















8LITRL 


7a« 


79 


445 


447 














SLIT2 


4fc2 


477* 


















StUOOP 


450* 


523 












• 






SPACE 


294# 


800 


















SSTAOR 


26# 


27 


267 


436 


485 












STACK 


22* 


94 


















STACKA 


se# 


96 


















8TC0F 


23i 


24 


370 
















8TEMPP 


242 


250* 


254 
















8TEMPS 


76# 


77 


241 


243 














8TFLDM 


896 


906* 


















STMIUP 


245* 


262 


















ST8TUF 


109 


135 


350* 
















sua 


274 


304* 


316 


634 


671 


722 










SUBHI 


53* 


54 


273 


310 


620 


665 


721 


1022 


1035 




8UBL0 


54* 


55 


272 


305 


619 


631 


664 


718 


1018 


1037 


SVARST 


73* 


223 


















8VCNT 


34* 


35 


357 


360 


430 


432 










8V8T0R 


237 


261 


263* 


282 














SWAP 


i34 


136* 


144 


159 


162 


188 


1042 








SWPFLA 


133 


163* 


175 


176 














SWPFl 


130 


131 


152 


154 


181* 


197 










SWPFS 


132 


177 


188* 


194 














SWPINF 


32* 


91 


128 


138 














SWPRIT 


160* 


181 


















SWP8UB 


141 


145 


148 


164* 


165 


169 


170 


172 


187 


198 


SWPl 


166 


167 


179* 


185 














SWP2 


168 


190* 


















T08ESY 


140 


US* 


















TEMP 


46* 


47 


110 


112 


171 


182 


183 


189 


192 


226 




238 


245 


252 


392 


399 


450 


457 


550 


555 


558 




559 


564 


607 


623 


743 


745 


749 


754 


756 


776 




783 


852 


864 


871 


680 


887 


893 


897 


900 


947 




950 




















TEMP2 


47* 


48 


174 


180 


184 


191 


193 


229 


234 


257 




264 


266 


409 


410 


412 


459 


521 


612 


626 


630 




639 


662 


667 


676 


758 


761 


764 


765 


899 


906 




916 


920 


















TEMP3 


48* 


49 


233 


260 


269 


279 


481 


482 


484 


490 




491 


519 


617 


618 


629 


641 


658 


663 


679 




TIMES3 


628 


632* 


















TMDATA 


535 


539 


567* 
















TMSLIT 


496 


500 


572* 
















TOOBIG 


317* 




















TTX 


322* 


327 


808 


810 


818 












TTY 


296 


300 


79fe 


798 


801 


60S 


eu« 


819 






VARCNT 


33* 


34 


353 


356 


371 


373 


384 









VERSON 


17# 




















WOBOl 


49* 


sa 


403 


41b 














W0f>D2 


50« 


51 


284 


287 


290 


291 


405 


418 






W0RD3 


5l# 


52 


407 


420 














XERMSG 


96b 


1006# 


1040 
















XINT 


9fce 


989 


1005* 
















XLABEL 


69* 


ra 


286 


301 


921 


922 


924 


925 






XSAVE 


972 


987 


1008« 


1008* 














xie 


19i 


106 


107 


224 


228 


230 


249 


251 


253 


255 




256 


380 


381 


382 


383 


396 


398 


400 


402 


404 




406 


408 


454 


456 


458 


460 


480 


516 


545 


547 




551 


556 


560 


602 


606 


606 


613 


643 


650 


654 




659 


681 


682 


943 


948 












Xll 


20# 


268 


276 


278 


281 


414 


417 


419 


421 


486 




504 


306 


509 


511 


516 


604 


636 


638 


640 


642 




652 


673 


675 


678 


680 


903 


905 


945 


949 




X15 


21« 


!>43 


562 


901 


902 


907 










X7fe07 


982 


1O07« 


1053 


1078 














^l95bU 


124 




















^uasfcs 


121 




















*L0567 


117 




















^L0570 


116 




















^L057l 


115 




















*l.a572 


111 




















^LB574 


105 




















*l.057fc 


96 




















^1.0577 


89 




















^L07fc3 


299 




















^1.07*5 


293 




















^L0766 


270 




















^1.07*7 


259 




















^L0770 


248 




















^U0772 


243 




















^L0773 


2«1 




















*L0774 


232 




















^L0775 


225 




















^L077«> 


223 




















^L1170 


447 




















^1.1171 


445 




















^L1172 


395 


453 


















*Ln73 


389 




















^Ull7« 


387 




















^Lin* 


362 


366 


















^L1177 


354 


358 


















J.L1370 


544 




















^H376 


496 


537 


















^L1377 


478 




















^L1564 


697 




















^LlSfcb 


689 




















^L1567 


661 




















^L157i? 


649 




















^L1574 


632 


668 


















^UlSTfc 


610 


615 


656 
















*L1577 


601 




















^lii^a 


ai7 




















^LIT53 


aifc 




















^11754 


814 




















^L175b 


«ii 






















809 
«07 














M 


^ 





LUM 



*l.l7b5 


762 


j.1.1767 


755 


j.1.1770 


750 


a.11771 


746 


^L1772 


744 


xLl774 


738 


j.l.21*5 


946 


^12166 


944 


*L2U7 


942 


J.U2170 


939 


J.U2174 


867 


^L2175 


860 


^L2366 


1068 


^t.2370 


1047 


^U237i 


1045 


^12373 


1013 


*L2377 


999 



1001 



/OS/8 BASIC RUNTIME SYSTEM PAL6-V7 \Vi/ZH/li PAGE 1 

/OS/a tJASIC RUNTIME SVSTtM 

/ 

/OEC-Sa-LBASA-A-LA 

/ 

/COPYRIGHT, 1972 

/ 

/DIGITAL EQUIPMENT CORPORATION 

/MAVNARD, MASSACHUSETTS 01754 

/ 

/AUGUST 19, 1972 

/ 

/R.G, BEAN 



/AOOhESS OF START OF 5 PAGE OVERLAY BUFFER 
3400 OVERLAY'3400 



/ASSEMBLY INSTRUCTIONS 

/WHEN ASSEMBLED AND LOADED VIA THE ABS. LOADER, THE 

/CORE LAYOUT IS AS FOLLOWS! 

/ 

/BRTS IS AT 0-«>777 

/OVERLAY BASIC, AF IS AT 3400-4577 Of I 

/OVERLAY BASIC. SF lA AT 12000-13177 6v/ "^ 

/OVERLAY BASIC, FF IS AT 13400-U5770x/ > 

/ 

/TO CREATE SAVE IMAGE FILES PRIOR TO RUNNING BASIC, 

/ASSEMBLE THIS SOURCE IN A UK OR MORf MACHINE, THEN 

/PERFORM THE FOLLOWING SEQUENCE OF OS/8 COMMANDS 

/ 

/,R ABSLOR 

/•BRTSS (•8RTS,EAE0VR$ IF YOU WISH TO USE ON EAE MACHINE) 

/.SAVE SYSI8RTS 0-fc777 -^ 

/ ^^ 

/.SAVE S¥S:BASIC.AF 3400-4577 "^ 

/ 

/.SAVE SYStBASIC.SF 12000-13177 ' 

/ /- 

/.SAVE SYS:BASIC,FF 13430-14577 

/ 

/THE BASIC RUN-TIME SYSTEM IS CONDITIONALIZEO TO TAKE ADVANTAGE 

/OF THE PDP-e/E KE6/E EAE OPTION, 

/NORMALLY, THE SYSTEM IS ASSEMBLED SUCH THAT IT WILL HUN ON ANY 

/PDP-8 OR POP-12. TO TAKE ADVANTAGE OF THE ADDITIONAL HARDWARE, SET 

/THE SWITCH EAE"1 IF THE SYSTEM INCLUDES A KE8/E EAE. 

/THE RESULTING BINARY IS THEN LOADED OVER THE NORMAL SYSTEM 

/BINARY AS AN OVERLAY USING THE ABS LOADER, AND THE MODIFIED SYSTEM 

/IS SAVED. IN OTHER WORDS, TO CREATE A NON-EAE SYSTEM, ASSEMBLE THIS 

/SOUKCt ONCE, WITH EAE5», ANO PtRFOKM THE SAVE OPERATIONS ABOVE ON THfc 

/BINARY THAT RESULTS. TO CHEATfc AN f.kE SYSTEM, ASSEMBLE THIS SOURCK 

/TWICE, ONCE WITH EAE»0 AND ONCE WITH EAE=1, USE THE ABSOLUTE LOAUER 

/TO LOAD BOTH RESULTING BINARIES CTHt EAE BINARY MUST BE LOAOFl) 



/08/8 BASIC RUNTIME SYSTEM 



PALB-V7 10/24/72 PAGE l-l 



/AFTER THE NORMAL BINARY3,THfeN PERFORM THE SAVE 
/OPERATIONS ON THE RESULT, 



/EAE*0 
/EAE»1 



/USE STANDARD FLOATING POINT PACKABE 
/ASSEMBLE EAE OVERLAY 



/08/8 BASIC RUNTIME SYSTEM 



PALa-V7 10/24/72 PAGE 2 



IFN2R0 EAE < 
NOPUNCH 

> 



/PAG£ LOCATIONS 



*3 



00003 


0000 


TEMP14, 





00004 


0000 


TEMP15, 





00005 


6361 


NUMCOM, 


NUMCOL 


00006 


0000 


USECON, 





00007 


0000 


TEMP2, 







0010 




*10 


00010 


0000 


XR0I 





00011 


0000 


XRl, 





00012 


0000 


XR2, 





00013 


0000 


XR3| 





00014 


0000 


XR4, 

XR5, 





0001S 


0000 


BABS> 





00016 


0000 


DLPTR, 





00017 


2713 


SPINNR, 


2713 



/TEMPS USED B¥ CHARACTER UNPACKING ROUTINES 

/LINK TO 12 BIT COMPARE ROUTINE 

/USE CONSTANT GENERATED bV "USE" STATEMENT 



/INDEX REGISTERS 

/USED BV ABSOLATE VALUE COMPARING ROUTINE 

/POINTER FOR IN-CORE DATA LIST 

/AT RUNTIME, THIS LOCATION IS SPUN FOR RND SEEP 



0020 



*20 



/COMPILER"INTERPRETER CONTROL BLOCK. LOCATIONS MARKED BV 

/A *• ARE EXPECTED TO CONTAIN VALUES SUPPLIED BV THE COMPILER PRIOR 

/TO THE BRTS LOAD 

I/O TABLE AND SYMBOL TABLES 

TO START OF SCALAR SYMBOL TABLE 

TO START OF ARRAY SYMBOL TABLE-1 

TO START OF STRING SYMBOL TABLE-1 

TO START OF STRING ARRAY TABLE-1 

START OF PSEUOO-COOE 

TO START OF PSEUDO CODE-l 

TO TOP OF DATA LIST 

TO BOTTOM OF INCORE DATA LIST-1 



00020 


6211 


CDFIO, 


6211 




/CDF FOR 


00021 


0000 


SCSTRT, 







/POINTER 


00022 


0000 


ARSTRT, 







/POINTER 


00023 


0000 


STSTHT, 







/POINTER 


00024 


0000 


SASTRT, 







/POINTER 


00025 


0000 


CDFPS, 







/CDF FOR 


00026 


0000 


PSSTRT, 







/POINTER 


00027 


0000 


DLSTOP, 







/POINTER 


00030 


0000 


DLSTHT, 







/POINTER 



• 



# 



• 



/OS/8 BASIC RUNTIME SYSTEM 

/SYSTEM REGISTERS 
00031 0000 PSFLAG, 



00032 


0000 


STRLEN* 





00033 


0000 


51, 





00034 


0000 


S2, 





00035 


0000 


DMAP, 





00036 


0000 


BMAP, 
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/IF BIT 0N,T08/E PG2 MOVED 

/IF BIT 11 ON,PG 1/600 HAS BEEN MOVED 

/LENGTH OF STRING IN SAC 

/SUBSCRIPT I (MUST BE FOLLOWED BY Saj) 

/SUBSCRIPT 2 (MUST BE PRECEEDED BY SIJ) 

/MAP OF DRIVER PAGES 

/MAP OF FILE BUFFERS 



0037 



• 37 



/FLOATING POINT PACKAGE LOCATIONS, THE FOLLOWING 21 LOCATIONS ARE USED 
/FOR VARIOUS PURPOSES BY THE FLOATING POINT PACKAGE. THOSE WITH DOUBLE 
/LABELS ARE USED BY BRT8 AS TEMPORARIES WHEN NOT CALLING THE PACKAGE. 
/THE SECOND TAG IS THE ONE USED BY THE FLOATING POINT PACKAGE, THE FIRST 
/IS USED BY BRTS. 

/SPECIAL MODE FLIP-FLOP 



00037 


0000 


TEMPI, 





00040 


0000 


AC0, 





00041 


0000 


ACI, 
TEMP3, 





00042 


0000 


AC2, 

TM, 





00043 


6201 


TEMP4, 
EXP» 


6201 


00044 


0000 


ACXf 
HORO, 





0004S 


0000 


ACH, 

LORDf- 

ACLOf 





00046 


0000 


ACLi 
TEMPS, 





00047 


0000 


OPXi 
TEMP6, 





00050 


0000 


OPH, 
TEMPT, 





000S1 


0000 


OPL, 





000S2 


0000 


D8WIT, 





00053 


0215 


CHARr 
K215, 


215 


00054 


0215 


SWITt, 
M215, 


215 


00055 


7563 


swne, 


-215 


00056 


7777 


EFLG, 


7777 


00057 


0024 


FLOWi 


24 


00060 


0012 


DAOP» 


12 


00061 


0000 


TEMP10I 





00062 


0000 


TEMPll, 






/FAC-EXPONENT 

/FAC-HIGH ORDER MANTISSA 

/FAC-MANTI8SA LOW 



/SWITCH USED BY INPUT ROUTINE 
/TERMINATOR OF LAST INPUT 

/»0 FOR NO LP AFTER CR ON INPUT 

/■0 FOR NO CR/LF AFTER OUTPUT 

/0»E FORMAT 

/FIELD WIDTH OF OUTPUT 

/«0F PLACES AFTER DEC. PT 

/LOC NEEDED BY FPP 

/LOC NEEDED BY FPP 



/OS/8 BASIC RUNTIME SYSTEM 



P4Le-V7 10/24/7^ PAtiE 4 



/SYSTEM REGISTERS USED OFTEN BV INTERPHETER CODE 



00063 0000 MODESWi 



00064 


0000 


INSAV, 





0006S 


0000 


LINEHI, 





00066 


0000 


LINEUGi 





00067 


0452 


GSP, 


G5TCK-1 


00070 


0000 


STRMAX, 





00071 


0000 


STRCNTi 





00072 


0000 


8TRPTR, 









/OFT USED CONSTANTS 


00073 


0010 


K0010, 


0010 


00074 


0017 


K0017, 


0017 


00075 


0077 


K0077, 


007» 


00076 


0100 


K0100, 
USRi 


100 


00077 


0200 


K0200I 


0200 




0077 




K200IK0200 


00100 


0340 


K0340, 


0340 


00101 


0377 


K0377, 


0377 


00102 


0400 


K0400, 


0400 


00103 


7400 


K7400, 


7400 


00104 


7700 


K77B0, 


7700 


00105 


7477 


K7477, 


7477 


00106 


7740 


KN40* 


.40 


00107 


7764 


M14» 


-14 



/0 FOR AHTHIMETIC MODE.l FOR STRING MOOF 

/CURRENT PSEUDO-INSTRUCTION BEING EXECUTED 

/HI ORDER BITS OF LINE # CURRENTLY BEING EXECUTED 

/LOW ORDER BITS OF CURRENT LINE NUMBER 

/POINTER INTO GOSUd STACK 

/MAXIMUM « OF CHARS ALLOWED IN CURRENT STRING 

/- • OF CHARACTERS IN CURRENT STRING 

/POINTER TO CURRENT OPERAND STRING 



• 




/OS/8 BASIC RUNTIME SYSTEM 

/OFT USED LINKS 



PAU8-V7 l0/2«/72 PAGE 5 



00110 1034 PRINT, XPRINT /LINK FDR TTY DRIVER HO 

00111 0320 8ACPTR, SAC-1 /POINTER TO STRING ACCU 

00112 3253 PUTCML» PUTCM /LINK TO FILE BUFFER ST 

00113 0212 ILOOPLf ILOOP /POINTER TO START OF IL 

00114 1615 INTL» UNSFIX /LINK TO UNSIGNED 12-flI 

00115 0206 COFPSLf CDFPSU /POINTER TO PSEUDO-CODE 

00116 1460 ERROR, ERRDIS /ERROR ROUTINE DISPATCH 

00117 6525 FBITS, FBITGT /ROUTINE TO ISOLATE FUN 

00120 0200 PWFECLf PWFECH /ROUTINE TO GET NEXT WO 

00121 2260 MPYLNK, MPY /LINK TO 12 BY 12 BIT M 

00122 1900 XPUT, XPUTCH /ROUTINE TO PUT CHAR IN 

00123 2304 FIDLE, IDLE /LINK TO FILE IDLE CHEC 

00124 0537 DEVCAL, DRCALL /LINK TO DEVICE DRIVER 

00125 3023 WRITFW, WRITFL /ROUTINE TO WRITE I WOR 

00126 2636 8THINL, STHINI /LINK TO STH INITIALIZE 

00127 2676 LOHINL, LDHINI /LINK TO LDH INITIALIZE 

00130 2600 STH, STHL /STORE HALF ROUTINE 

00131 2646 LDH, LDHL /LOAD HALF ROUTINE 

00132 3371 FACSAU, FACSAV /ROUTINE TO SAVE FAC IN 
001S3 2373 FACRELi FACRES /ROUTINE TO RESTORE FAC 

00134 6241 FGETL, FFGET /LINK TO FPP GET ROUTIN 

00135 6256 FPUTL, FFPUT /LINK TO FPP PUT ROUTIN 

00136 6215 FNORL, FFNOR /LINK TO FPP NORMALIZE 

00137 0365 FCLRf FACCLR /ROUTINE TO ZERO FAC 

00140 6135 FNEGL, FFNE6 /LINK TO FPP NEGATE ROU 

00141 4533 FLOATLf FPLOAT /LINK TO FPP FLOAT ROUT 

00142 312b GETCHL, GETCH /LINK FOR ASCII CHAR GE 

00143 2252 EOFSEL» EOFSET /ROUTINE TO SET EOF BIT 

00144 2240 BSWLr BSWP /LINK FOR BYTE SWAP ROU 

00145 2735 PACKL, PACKCH /ROUTINE TO PACK ASCII, 

00146 3016 CNOCLLi CNOCLR /ROUTINE TO INITAILIZE 

00147 2706 BUFCHL, BUFCHK /CHECK STATUS OF BUFFER 

00150 6566 FTYPL, FTYPE /ROUTINE TO DETERMINE F 

00151 6661 CHRNOL, CHARNO /ROUTINE TO DETERMINE C 

00152 3302 NEXRfeLi NEXREC /ROUTINE TO FILL BUFFER 

00153 2347 CRLF, CRLFR /ROUTINE TO PRINT CR,LF 

00154 3503 VALLR* VALGET /ROUTINE USED BY FINPUT 

00155 5364 PATCHP, PATCHF /LINK TO FPP SPECIAL MO 

00156 1230 PISWAP, PSWAP— /ROUTINE TO SWAP HI COR 

00157 0567 LOHRST, LRE8ET /ROUTINE TO RESET LOH T 

00160 0771 STHRST, SRESET /ROUTINE TO RESET STH T 

00161 0563 PSTOPl, FSTOPI /LINK FOR "C HOOKS IN D 

/***•**• THE ABOVE LINK MUST BE AT 161 ******* 



OKS 


MULATOR 


UFFING ROUTINE 


OOP 


T INTEGER FIX 


COF 


CTION BITS FROM INST 


RD FROM PSEUDO-COOE STREAM 


ULTIPLY 


TTY RING BUFFER 


K ROUTINE 


CALLING ROUTINE 


D IN FILE BUFFER 


R 


TEMPOARARV 


FROM TEMPORARY 


E 


E 


ROUTINE 


TINE 


INE 


T ROUTINE 


TINE 


3 FOR 2 


CHAR # TO 1 


POINTER 


ILE TYPE 


HARATER NUMBER 


WITH NEXT RECORD 



TO FtTCH CHARS DURING VAL$ FUNCTION 
Ot PATCH 

E AND PAGE 17b00 
FIELD 
FIELD 
RIVERS 



/OS/8 BASIC RUNTIME SYSTEM 
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/I/O TABLE POINTER AHEA-THIS BLOCK HOLDS POINTERS TO THE I/O TABLE 
/ENTRY FOR THE CURRENT FILE. THE POINTERS ARE CHANGED EVERY TIME AN 
/SFN IS EXECUTED. A TAD I OFF ONE OF THE POINTERS WILL GET THE iNFDRMATTnN 
/NOTED IN THE COMMENT FOR THE CURRENT I/O DEVICE INFORMATION 

/THIS BLOCK IS INITIALIZED FOR TTY 

/ENTRY NUMBER NOW IN AREA 

/HEADER WORD 

/BUFFER ADDRESS 

/CURRENT BLOCK IN SUFFER 

/REAOVWRITE POINTER 

/HANDLER ENTRY POINT 

/FILE STARTING BLOCK « 

/ACTUAL FILE LENGTH 

/ DEVICE / (FILE MAXIMUM LENGTH) 

/ NAME / (POSITION Of PRINT HEAD) 

/ FILE 
/ NAME 
/ 



00162 


0000 


ENTNO, 





00163 


6677 


WORO0, 


TTYF 


00164 


6700 


WORDl, 


TTYF*1 


00165 


6701 


WOROii, 


TTYF+2 


00166 


6702 


MOROSi 


TTVF+3 


00167 


6703 


N0RD4, 


TTYF*4 


00170 


6704 


WORDS, 


TTVF*5 


00171 


6705 


W0R06, 


TTYF*6 


00173 


6706 


W0RD7, 


TTYF*7 


00173 


6707 


WORDt0, 


TTYF*10 


00174 


6710 


WORDll, 


TTYF+11 


00175 


6711 


W0RD12> 


TTYF*12 


00176 


6712 


l^fOROnf 


TTYF+13 


00177 


6713 


W0R014, 


TTYP*14 



• 



/OS/8 BASIC RUNTIME SYSTEM 
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/BRTS MAINLINE-THI8 IS THE IMTERPRtTER INSTRUCTION LOOP, IT IS IN THIS 
/LOOP THAT THE NEXT INSTRUCTION IS FETCHED, DECODED, ANO USED AS A DISPATCH 
/TO THE PROPER EXECUTION ROUTINES FOR THAT INSTRUCTION, 

0200 *200 

/SUBROUTINE PWFECH-RETURNS WITH NEXT WORD FROM PSEUDO-CODE STREAM IN AC 

/START ONCE ONLY CODE IN TTY BUFFER 
/BUMP PSEUDO-CODE PROGRAM COUNTER 
/NO-SKIPiJUST GET NEXT PSEUDO-CODE WORD 
/SKIP MEANS WE HAVE TO INCREMENT PS-CODE FIELD 

/SET OF TO FIELD OF PSEUDO-CODE 

/GET NEXT WORD OF CODE 

/SET DATA FIELD BACK TO INTERPRETER FIELD 

/RETURN 

/*•***•*****»»«••*•••*****«*«*«•*•»•**««»*»«***«•**•*******•» 
/BRT8 I-LOOP 



00200 


5606 


PWFECH, 


JMP I CDFPSU 


00201 


2302 




IS2 INTPC 


00202 


5206 




JMP COFPSU 


00203 


1206 




TAD COFPSU 


00204 


10T3 




TAD K0010 


00205 


3206 




OCA CDFPSU 


00206 


0321 


CDFPSUf 


8TARTI 


00207 


1702 




TAD I INTPC 


00210 


6201 




CDF 


00211 


5600 




JMP I PWFECH 



00212 


7300 


00213 


3037 


00214 


4200 


00215 


3064 


00216 


4510 


00217 


7000 


00220 


1064 


00221 


0103 


00222 


7106 


00223 


7006 


00224 


7004 


00225 


1250 


00226 


7500 


00227 


5243 


00230 


3040 


00231 


1063 


00232 


7640 


00233 


5271 


00234 


1040 


00235 


1246 


00236 


3240 


00237 


4307 


00240 


0240 


00241 


7000 


00242 


5212 


00243 


1247 


00244 


3245 


00245 


0245 


00246 


4661 


00247 


5661 



ILOOP, 



r^^ 



ILOOPF, 



SCASi;, 



CLA 


CLL 


OCA 


FF 


JMS 


PWFECH 


OCA 
JMS 


rWiNT 


NOP 


TAD 


IN8AV 


AND 


K7400 ' 


CLL 


RTL 


RTL 




RAL 




TAD 


KM10 


SMA 




JMP SCASE 


OCA 


TEMPI 


TAD 


MODESW 


SZA 


CLA 


JMF 


SMODE 


TAD 


TEMPI 


TAD 


JMSI 


OCA 


.♦2 


JMS 


ARGPRE 


NOP 




JMP 


ILOOP 


TAD 


JMPI 


OCA 


. + t 



JMSI, JMS I SEP! 
JMPI, JMP I SEPl 



/FLUSH 

/PUT FPP IN SI MODE 

/GET NEXT PSEUDO-INSTRUCTION 

/SAVE FOR LATER 

/CALL TO TTY DRIVER 



/STRIP TO OPCODE BITS 



/OPCODE NOW IN BITS 6-11 

/SUBTRACT 10 

/IS OPCODE <10? 

/CALL TO INSTRUCTION COMMON TO SMODE AND AMODE 

/YES-SAVE THE OFFSET 

/WHICH MODE? 

/STRING MODE 

/ARITHMETIC MODE-GET OFFSET 

/MAKE JMS TO FP PACKAGE ROUTINE 

/PUT IN LINE 

/SET UP ARGUMENT FROM SYMBOL TABLE 

/JMS TO THE FLOATING POINT PACKAGE ROUTINE 

/FPP SOMETIMES RETURNS TO CALL+2 

/DONE 

/JUST DISPATCH TO ROUTINE CALLED FOR 

/JUMP TO APPROPRIATE ROUTINE 

/JMS USED FOR CALLS TO FPP BY AMQOE INST 

/JMP USED TO CALL ROUTINES COMMON TO AMODE AND SMODE 
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00250 7770 KM10I -10 



• 



« 
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/JUMP TABIE FOR AMOOE INSTRUCTIONS 



002SI 


6000 




FFADO 


002S2 


6117 




FF8UB 


00253 


5600 




FFMPY 


002S4 


5722 




FFDIV 


00255 


6241 




FFGET 


00256 


6256 




FFPUT 


00257 


5400 




FFSUBl 


00260 


5412 




FFDIVl 






/ALL 


INSTRUCTIONS BE 


00261 


1400 


SEPl, 


LSII 


00262 


1410 




IS2I 


00263 


0400 




FJDCI 


00264 


044S 




JEOFI 


00265 


1140 




LINEI 


00266 


0600 




ARRAYI 


00267 


0113 




UOOPL 


00270 


1200 




OPERl 


00271 


1040 


SMODE 


, TAD TEMPI 


00272 


1306 




TAO JMSSI 


00273 


3276 




OCA SDIS 


00274 


7100 




CLU 


00275 


4705 




JMS I STFINL 


00276 


0276 


SOISr 


■ 



/FACj.C(A)*FAC 
/FACj.FAC-C(A) 
/FACj.FAC*C(A) 
/FACj.FAC/C(A) 
/FAC^C(A) 
/C(A)^FAC 
/FACj.C(A)-FAC 
/FACa.C(A)/FAC 
D THIS POINT ARE COMMON 
/Sl^CCA) 
/S2j.CCA) 

/IF TRUE,PC*C(PC,PC*n 
/IF EOF,PC^CCPC,PC*n 
/LINE NUMBER 
/ARRAY INST 
/NOP 
/OPERATE INST 



OPCODE 
OPCODE 
OPCODE 
OPCODE 
OPCODE 
OPCODE 
OPCODE 
OPCODE 
TO AMOOE AND SMODE 
OPCODE 10 
OPCODE 
OPCODE 
OPCODE 
OPCODE 
OPCODE 
OPCODE 
OPCODE 




1 
2 
3 
4 
5 
6 
7 



11 
12 
13 
14 
15 
16 
17 



/INST OFFSET 

/BUILD JMP OFF STRING TABLE 

/PUT IN LINE 

/STRING SCALAR TABLE 

/SET UP ARGUMENT ADDRESS 

/CALL STRING ROUTINE REQUESTED 



00277 


iZZ9 


00300 


2061 


00301 


2417 


00302 


0302 


00303 


3150 


00304 


0477 


00305 


1666 


00306 


5707 



/JUMP TABLE FOR SMOOE INSTRUCTIONS 

/ A "/••• IN THE COMMENT MEANS THAT THAT OPCODE IS NOT USED, SO WE 

/USE THE SLOT FOR REGULAR STORAGE 



SCONl 

SCOMP 
SREAO 



/SAC^SAC&CCAS) 
/IF SAC .NE. C(ASJ,PC^PC*2 
- - - /CtAS5^0EVICE 

INTPC, , /• INTERPRETER PC 

SLOAD /SAC^CCAS) 

SSTORE /CCASJ^SAC 

STFINL» STFIND /* LINK TO STRING FINDING ROUTINE 

JMSSI, JMP 1 ,+1 /# DISPATCH JUMP FOR SMODE INSTRUCTIONS 

/END OF I-LOOP 

/****** ***1i***i>****iHi*1H,i,iH,**i,*1,i,'k1,*m,*n,i,i,i,i,i,1i**t *********** 
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/ARGPRE-HOUTINE TO TRANSLATE OPERAND FltUO INTO 12 9IT POINTER 
/INTO SCALAR TABLE FOR USE IN fPP CALLS. 



00307 


0000 


ARGPREf 







00310 


1064 




TAD INSAV 


/BET INSTRUCTION 


00311 


0101 




AND K0377 


/STRIP TO OPERAND FIELD 


00312 


3040 




OCA TEMPI 


/SAVE 


00313 


1040 




TAD TEMPI 




00314 


7104 




CLL RAL 


/*2 


00315 


1040 




TAD TEMPI 


/PTR*3 


00316 


1021 




TAD 8CSTRT 


/MAKE 12 BIT ADOR 


00317 


1000 


SCALOFf 


1000 


/DF TO SCALAR FIELD (CDF INITIALIZED BY LOADER) 


00320 


5707 




JMP 1 ARGPRE 


/RETURN 



///////////////////////////////////////////////////////////// 

/////////////// STRING ACCUMULATOR ///////////////////////// 
///////////////////////////////////////////////////////////// 

/36 LOCATIONS USED TO HOLD STRING OPERANDS AND RESULTS FOR STRING 
/OPERATIONS, AT LOAD TIME.JT IS FULL OF ONCE-ONLY STARTUP CODE 



00321 


7404 


STARTl, 
SACi 


OSR 




00322 


7640 




SZA 


CLA 


00323 


7000 




NOP 


00324 


6046 




TL8 




00325 


2017 




ISZ 


SPINNR 


00326 


7000 




NOP 




00327 


6041 




T8F 




00330 


5325 




JMP ,-3 


00331 


1020 




TAD 


COFIO 


00332 


3763 




OCA 


I PSIL 


00333 


1020 




TAD 


COFIO 


00334 


3764 




OCA 


I PS2L 


00335 


4556 




JMS 


I PISWAP-^ 


00336 


1317 




TAD 


SCALDF 


00337 


3757 




DCA 


I L7746 


00340 


1361 




TAD 


PINFO 


00341 


3011 




OCA 


XRl 


00342 


1362 




TAO 


POVTAB 


00343 


3012 




DCA 


XR2 


00344 


1360 




TAD 


MINUS4 


00345 


3040 




DCA 


TEMPI 


00346 


6211 


OVML» 


CDF 


10 


00347 


1411 




TAD 


I XRl 


00330 


6201 




CDF 




00351 


3412 




OCA 


I XR2 


00352 


2040 




ISZ 


TEMPI 


00353 


5346 




JMF 


• OVML 



/A HLT PLACED HERE WILL ALLOW YOU TO STOP 

/MACHINE BEFORE RUNTIME SYSTEM STARTS BY 

/SETTING SWITCH REGISTER 

/SET TTY FLAG 

/SPIN RANDOM NUMBER SEED 

/WHILE WAITING FOR INITIALIZING TLS 

/FLAG UP YET? 

/SET UP CDF8 IN P8WAP 



/RESTORE PAGE 17600 

/SET PROG NOT RE5TASTABLE BIT 

/TELL USR TO SAVE 1000-1777 

/POINTER TO INFO TABLE IN 17600 '-''tf'' 

/POINTER TO BLOCK TABLE IN OVERLAY DRIVER 15-i^ 

/WE HAVE TO GET 4 BLOCK NUMBERS 

/GET BLOCK NUMBER FOR THIS OVERLAY F«OM JNFO AREA 

/PUT IN TABLE IN OVERLAY DRIVER 

/DONE? 

/NO 



t 




• 



• 



/OS/8 BASIC RUNTIME SYSTEM 

00354 4556 JMS I P18WAP 

00355 575fc JMP I .♦! 

00356 1152 STABT3 

00357 7746 L77fl6, 7746 

00360 7774 MINU$4f 04 

00361 7607 PINFO, 7607 

00362 1530 POVTABf ARITHA-1 

00363 1240 PSll., PICOF 

00364 1245 P82L, PiCDFl 
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/YES-FLUSH PAGE 17600 



/CONTINUE THE INITIALIZING CODE IN INTERMEDIATE BUFFER 



tnttftNi/tNUnttNUNN/Ut/NNIftntnUHtUUn/U/ 

t'tNKnfiHtNNumtnt/UNUfin/fHtntnnnntufu 



00365 
00366 
00367 
00370 
00371 
00372 



7600 
3044 
3046 
3045 
5765 



/ROUTINE TO ZERO FAC 



FACCLRi 
L7600I 



7600 
DCA EXP 
OCA LORD 
DCA HORO 
JMP I FACCLR 



/CLA 

/ZERO EXPONENT 
/ZERO LOM MANTISSA 
/ZERO HIGH MANTISSA 



^»B5«i*SL«!^?-.r"^""^ *'*^°"^ °'^'-^ TO COMPILER FOR TERMINATING 
/"KINT STATEMENTS) 



00373 0000 CRFUNCf 

00374 4550 JMS I FTYPL 

00375 5513 JMP I ILOOPL 

00376 4553 JMS I CRLF 

00377 5513 JMP I ILOOPL 



/IS FILE NUMERIC? 

/YES»WE DON'T WANT TO OUTPUT CRLF 

/DO AS WE ARE TOLO 

/NEXT INST 



/08/8 BASIC RUNTIME SYSTEM 
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0400 



PAGE 



/JUMP ON CONDITION 



00400 


1064 


FJOCI, 


TAD 


INSAV 


00401 


0074 




AND 


K0017 


00402 


7450 




SNA 




00403 


5215 




JMP GOSUB 


00404 


1363 




TAD 


FSTOPl 


00405 


3206 




DCA 


.♦I 


00406 


0406 




• 




00407 


3211 




DCA 


.♦2 


00410 


1045 




TAD 


HORO 


00411 


0411 




• 




00412 


5221 




JMF 


• SUCJMp 


00413 


4520 


JFAIL, 


JMS 


I PWFECL 


00414 


5513 




JMP 


I lUOOPL 


00415 


1515 


GOSUB, 


TAD 


1 CDFPSL 


00416 


4642 




JMS 


I PUSHGL 


00417 


1644 




TAD 


I INTPCL 


00420 


4642 




JMS 


I PUSHGL 


00481 


4520 


SUCJMP» 


JMS 


I PWFECt 


00422 


3644 




DCA 


I INTPCL 


00423 


1064 




TAD 


INSAV 


00424 


0100 




AND 


K0340 


00425 


7112 




CLL 


RTR 


00426 


1341 




TAD 


CDFINL 


00427 


3515 




DCA 


I CDFPSL 


00430 


5513 




JMP 


I ILOOPL 


00431 


7554 


K7554, 


7554 



/GET JUMP INSTRUCTION 

/MASK OFF JUMP CONDITION 

/IS IT GOSUB? 

/YES-PUSH PC ON STACK THEN JUMP 

/BASE TAD FOR BUILD OF TAO INSTRUCTION 

/PUT IN LINE 

/GET PROPER SKIP 

/PUT IN LINE 

/GET HIGH ORDER FAC 

/SKIP INSTRUCTION 

/CONDITION TRUE-JUMP 

/CONDITION FALSE-DON'T JUMP, BUT BUMP PC 

/DONE 



/GET CURRENT PC DATA FIELD 

/PUSH ON GOSUB STACK 

/GET CURRENT PC 

/PUSH ON GOSUB STACK 

/FALLS INTO UNCONDITIONAL JUMP BECAUSE A 

/GOSUB IS MERELY A PUSH FOLLOWED BY A JUMP 

/GET WORD FOLLOWING JUMP INS, 

/STORE AS NEW PC 

/GET JUMP INSTRUCTION 

/MASK OFF DESTINATION FIELD 

/SLIDE OVER 

/MAKE A CDF INSTRUCTION 

/AND SET NEW PC INSTRUCTION FIELD 

/NEXT INSTUCTION 

/*****TMIS CONST CAN NOT BE MOVED, THERE 
/MUST BE A CONSTANT BEFORE THE SKIP TABLELAND 
/THER MUST BE A TAD OF THAT CONSTANT ON THIS PAGE 



/SKIP TABLE USED TO HOLD TESTS FOR VARIOUS CONDITIONS 



00432 


7600 


K7600, 


7600 


/UNCONDITIONAL 


00433 


7700 




SMA CLA 


/JPA 


00434 


7640 




SZA CLA 


/JNA 


00435 


7740 




SMA SZA CLA 


/JPA JNA 


00436 


7710 




SPA CLA 


/JMA 


00437 


7650 




SNA CLA 


/JZA 


00440 


7750 




SPA SNA CLA 


/JMA JZA 


00441 


5643 




JMP I JFORL 


/FORLOUP JUMP 


00442 


2326 


PUSHGLi 


PUSHG 




00443 


2042 


JFORL, 


JFOR 




00444 


0302 


INTPCL» 


INTPC 





(CLA) 



• 



f 



• 
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0044S 
00446 
00447 
00450 
00451 
00452 



4923 
1563 
7112 
7620 
5213 
S221 



/JUMP ON END OF FILE 



JEOFI, 



JMS 
TAD 



FIOLE 
WORD0 



CLL RTR 
SNl. CLA 

JMP JFAIL 
JMP SUCJMP 



/SEE IF FILE OPEN 

/IST WORD OF I/O TABLE ENTRY 

/GET EOF BIT IN LINK 

/EOF? 

/NO"OON'T JUMP 
/JUMP 



00453 

00454 

00455 

00456 

00457 

00460 

00461 

00462 

00463 

00464 

0046S 

00466 

00467 

00470 

00471 

00472 

00473 

00474 

00475 

00476 



0000 CSTCK, 
0000 



////////////////// GOSUB STACK//////////////////////////// 



/START OF GOSUB STACK 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 SSSTOP, 







/TOP OF GOSUB STACK 
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/STRINS ACCUMULATOR STORE 



00477 


3736 


SSTOHE» 


DCA I STHCDF 


00500 


nil 




TAD SACPTR 


00501 


7101 




CLL lAC 


00502 


4527 




JMS I UDHINL 


00503 


4557 




JMS I LDMRST 


00504 


1072 




TAD STRPTR 


00505 


7101 




CUL lAC 


00506 


4526 




JMS I STHIML 


00507 


3071 




DCA STRCNT 


00510 


1032 




TAD 8TRLEN 


00511 


7450 




SNA 


00512 


5327 




JMP SSTEX 


00513 


3040 




DCA TEMPI 


00514 


4531 


SSLOOP, 


JMS I LDH 


00515 


4530 




JMS I 8TH 


00516 


2071 




ISZ STRCNT 


00517 


2040 




ISZ TEMPI 


00520 


7410 




SKP 


00521 


5327 




JMP SSTEX 


00S22 


1071 




TAD STRCNT 


00523 


1070 




TAD STRMAX 


00524 


7740 




SMA SZA CLA 


00525 


4516 


SL, 


JMS I ERROR 


00526 


5314 




JMP SSLOOP 


00527 


1736 


SSTEX, 


TAD 1 STHCDF 


00530 


3331 




DCA ,*l 


00531 


0531 


TEMP24, 


• 


00532 


1071 




TAD STRCNT 


00533 


7041 




CIA 


00534 


3472 




DCA I STRPTR 


00535 


5513 




JMP I ILOOPU 



/STORE CDF FOR OPERAND IN STM 

/SET AC TO ADDR OF SAC 

/INITIALIZE LDH TO PULL CHARS FROM SAC 

/SAC IS IN FIELD 

/POINTER INTO OPERAND 

/AC POINTS TO OPERAND 

/INITIALIZE STH TO STORE IN OPERAND 

/ZERO COUNT 

/STRING LENGTH 

/IS IT NULL STRING? 

/VES-WE DON'T HAVE TO STORE ANYTHING-JUST ZERO COUNT 

/SERVES AS CHARACTER COUNTER 

/GET CHAR FROM SAC 

/STORE IN OPERAND STRING 

/BUMP OPERAND COUNT 

/SAC ALL MOVED YET? 

/NO-CHECK IF THERE*S ROOM FOR THE REST 

/YES-DONE 

/* OF CHARS IN STRING SO FAR 

/COMPARE TO MAXIMUM SIZE 

/MAXIMUM SIZE REACHED YET? 

/YES-STRING TOO LONG OR UNDEFINED 

/NO-MOVE NEXT CHAR 

/OF FOR STRING 

/PUT IN LINE 

/DF TO STRING FIELD 

/DONE-GET # OF CHARS MOVED 

/NEGATE (ALL COUNTS ARE NEGATIVE 

/AND STORE AS COUNT WORD FOR OPERAND STRING 

/THAT'S ALL. FOLKSI 



00536 2603 STHCDF, STHOF 



• 



• 
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/CALL TO DEVICE DRIVER FOR FILE I/O, ASSUMES ARGS HAVE BEEN SET UP 



00537 


0000 


DRCALL. 





00500 


3351 




OCA ORARGl 


00Sttl 


6201 


CDFINL» 


CDF 


00542 


1564 




TAO I KORDl 


00543 


3352 




DCA DRARG2 


00544 


1565 




TAD I W0R02 


00545 


3353 




OCA DRARG3 


00546 


1567 




TAD I W0RD4 


00547 


3331 




OCA TEMP24 


00550 


4731 




JMS I TEMP24 


00551 


0000 


DRARGli 





00SS2 


0000 


DRARG2, 





00553 


0000 


0RARG3« 





00554 


5356 




JMP DRERR 


00555 


5737 




JMP 1 DRCALL 


00556 


7710 


DRERR, 


SPA CLA 


00557 


4516 


OE, 


JMS I ERROR 


00560 


4516 


EF, 


JMS I ERROR 






/CALL TO INTERPRETER 


00561 


4510 


F8T0PN, 


JMS 1 PRINT 


00562 


S361 




JMP .•! 


00563 


1231 


FSTOPI, 


TAO K7554 


00564 


3064 




DCA INSAV 


00565 


5766 




JMP I ,+1 


00566 


1471 




FUNC5I 






/ROUTINE TO RESET LO 


00567 


0000 


LRE8ET, 





00570 


1341 




TAD CDFINL 


00571 


3773 




DCA I LDHOCK 


00572 


5767 




JMP I LRESET 


00573 


2647 


LDHDCK, 


LDHOF 



/FUNCTION WORD INTO DRIVER CALL 

/OF TO CURRENT FIELD 

/GET BUFFER ADORE FROM I/O TABLE ENTRY 

/PUT IN DRIVER CALL 

/GET BLOCK NUMBER FROM I/O TABLE 

/PUT IN DRIVER CALL 

/GET DRIVER ENTRY 

/SAVE 

/CALL DRIVER 

/FUNCTION CONTROL WORD 

/BUFFER ADDRESS 

/BLOCK « 

/DEVICE ERROR 

/ALLS WELL 

/DETERMINE ERROR TYPE 

/FATAL 

/LOGICAL EOF 



/ON NORMAL EXITS, WE MUST EMPTY RING BUFFER 
/FIRST 

/FAKE A CALL TO BASIC, FF FUNCTION 6 
/CALL OVERLAY 



/CHANGE TO CDF 



/USE FUNCTION-TAKES WORD FOLLOWING CALL AND STUFFS IT IN USECON FOR 
/USE A BUFFER POINTER FOR USER SUBROUTINE 



00574 


0000 


USE, 







00575 


4520 




JMS 


I PWFECL 


00576 


3006 




DCA 


USECON 


00577 


5774 




JMP 


I USE 



/GET NEXT WORD FROM PSEUDO-CODE STREAM 

/STORE IN PAGE SLOT 

/RETURN 
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196^10 



PAGE 



/ARRAY INSTRUCTIONS 

/ARRAY INSTRUCTIONS WORK 8Y UNDING TMt ADDRESS OF ThE ARGUMENT FROM THE ARRAY S 

/TA8UE»THEN CALLING THE APPROPRIATE FLOATING POIN PACKAGE ROUTINE. 



00600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
00610 
00611 
00612 
00613 
00614 
00615 
00616 
00617 
00620 
00621 
00622 
00623 
00624 
00625 
00626 
00627 
00630 
00631 
00632 
00633 
00634 
00635 
00636 
00637 
00640 
00641 
00642 
00643 
00644 
00645 
00646 
00647 
00650 
00651 
00652 
00653 
00654 
00655 
00656 



1063 
7640 
S324 
1064 
0342 
7106 
1022 
3011 
0610 
Hll 
3007 
1411 
3307 
1411 
3042 
1033 
3013 
1042 
4405 
4516 
3050 
1411 
7450 
5240 
3371 
1034 
3015 
1371 
4405 
5223 
1034 
4521 
7100 
1033 
3047 
7004 
1050 
3050 
1047 
7104 
3051 
1050 
7004 
3042 
7100 
1047 
1051 



ARRAYIr 



ATA8PF, 



SU, 



AOCALCi 



TAD MODESV) 

SZA CLA 

JMP SARRAY 

TAD IN8AV 

AND K0037 

CLL RTL 

TAD ARSTRT 

OCA XRl 

TAD I XRl 
DCA TEMP2 
TAD I XRl 
DCA ADFC 
TAD I XRl 
DCA TEMP3 
TAD 81 
OCA BABS 
TAD TEMP3 
JMS I NUMCOM 
JMS I ERROR 
OCA TEMP6 
TAD I XRl 
SNA 
- JMP AOCALC 
DCA TEMP30 
TAD S2 
DCA BABS 
TAD TEMP30 
JMS I NUMCOM 

JMP SU 
TAD S2 

JMS I MPYUNK 
CLL 

TAD SI 
DCA TEMPS 
RAL 

TAD TEMP6 
DCA TEMP6 
TAD TEMP5 
CLL RAL 
DCA TEMPT 
TAD TEMP6 
RAL 

DCA TEMP3 
CLL 

TAD TEMP5 
TAD TEMP7 



/WHICH MODE? 

/SMOOE 

/GET ARRAY INSTRUCTION 

/MASK OFF ARRAY OPERAND 

/MULTIPLY BY 4 (ENTRY LENGTH) 

/MAKE POINTER INTO ARRAY TABLE 

/POINTS TO ARRAY FOR THIS OPERATION 

/CHANGE OF TO ARRAY TABLE FIELD (SET BY START) 

/GET POINTER TO FIRST ARRAY ELEMENT 

/SAVE FOR LATER 

/GET OF FOR VARIABLE 

/PUT IN LINE AT END OF ROUTINE 

/GET ARRAY DIMENSION 1 

/SAVE 

/GET SUBSCRIPT 1 

/SET UP 12 BIT COMPARE 

/DIMENSION 1 ♦I 

/SI TOO SIS? 

/YES-SUBSCRIPT OUT OF BOUNDS ERROR 

/CLEAR TEMPORARY 

/GET DIMENSION 2 

/IS SECOND DIMENSION 0?(ARRAY UNIDIMENSIONAL) 

/YES-OON«T CHECK S2 FOR OUT OF BOUNDS 

/SAVE 0IM2+1 

/GET SUBSCRIPT 2 

/SAVE 12 BIT COMPARE 



/S2 BIGGER THAN 0IM2? 

/YES 

/MULTIPLY DIMUl BY sa 

/12 BY 12 MULTIPLY ROUTINE 

/LORD OF S1*(DIM1*1)*S2 

/SAVE 

/CARRY TO BIT 11 

/HORD OF Sl*{0IM14'n*S2 

/SAVE 

/LORD OF Sl*(OIMl*l)*Sa 

/*2 

/LORD OF [Sl*(0IMl*l)*S21*2 

/HORD OF S1*(0IM1*1)*S2 

/*2 

/HORD OF [Sl*(0IMl*l)*S2J*2 

/LORD OF Sl*(OIMl*n 
/LORD OF t51*(DIMl*n»S2J 



• 



/OS/8 BASIC RUNTIME SYSTEM 



00657 


3051 


00660 


7004 


00661 


1050 


00662 


1042 


00663 


3050 


00664 


7100 


0066S 


1051 


00666 


1007 


00667 


3011 


00670 


7004 


00671 


1050 


00672 


7106 


00673 


7004 


00674 


1307 


00675 


3307 


00676 


1064 


00677 


0100 


00700 


7112 


00701 


7012 


00702 


7010 


00703 


1346 


00704 


3311 


00705 


7001 


00706 


3037 


00707 


0707 


00710 


1011 


00711 


0711 


00712 


7000 


00713 


5513 


00714 


5400 


0071S 


6000 


00716 


6117 


00717 


5600 


00720 


5722 


00721 


6241 


00722 


6256 


00723 


5412 



AOFCr 

ARJMP, 



DCA 
RAL 
TAD 
TAD 
OCA 
CLL 
TAD 
TAD 
DCA 
RAL 
TAD 
CLi. 
RAJ. 
TAD 
OCA 
TAD 
AND 
CLL 
RTR 
RAR 
TAO 
DCA 
lAC 
OCA 

TAD 

NOP 
JMP 



TEMPT 

TEMPfe 
TEMP3 
TEMP6 

TEMPT 
TEMP2 
XRl 

TEMP6 
RTL 

ADFC 

ADFC 

INSAV 

K0340 

RTR 



JMP12 
ARJMP 

FF 

XRl 

I ILOOPL 



PAU8-V7 10/24/72 PAGE 14-1 

/LORD OF 3*(Sl*(DlMl*n*S2] 
/CARRY TO BIT 11 
/HORD OF [SU(0IMl*n*S2)*2 
/HORO OF Sl*(01Ml*n*S2 
/HORO OF 3*[Sl'*(0IMl*n*S2J 

/INDEX TO ELEMENT 

/AC POINTS TO CORRECT ARRAY ELEMENT 

/SAVE POINTER 

/CARRY TO BIT 11 

/COMBINE TO MAKE TOTAL # OF FIELD OVERLAPS 

/SLIDE OVERLAPS TO FIELD BITS (6-fl) 
/ADO ANY CHANGE IN DATA FIELD TO CDF 
/PUT ABSOLUTE COF IN LINE 
/GET ARRAY INSTRUCTION AGAIN 
/MASK OFF ARRAY OPCODE 



/SLIDE TO BITS 9-11 

/AND USE AS INDEX INTO JUMP TABLE 

/PUT JUMP IN LINE OF CODE 

/PUT FPP IN "SPECIAL MODE" 
/CHANGE DF TO OF OF ARRAY ELEMNT 
/AC POINTS TO ARRAY ELEMENT 
/PERFORM THE REQUIRED OPERATION 
/FPP SOMETIMES RETURNS TO CALL+2 
/DONE 



/ARRAY JUMP TABLE 



AJT, 



FPUTLLi 



FFSUBl 

FFADO 

FFSUB 

FFMPY 

FFDIV 

FFGET 

FFPUT 

FFOIVl 



/FAC»ACS1,S2)-FAC 

/FAC8FAC*A(S1,S2) 

/FAC»FAC-A(S1,82) 

/FAC«FAC*A(S1,S2) 

/FAC»FAC/A(Sl,S2] 

/FAC»C(A(S1,S2) 

/C(A(Sl,S2)sFAC 

/FAC»A(81,S2)/FAC 



OPCODE 

OPCODE 1 

QPCOOE 

OPCODE 

OPCODE 

OPCODE 

OPCODE 

OPCODE 



/OS/a BASIC RUNTIME SYSTEM PAU8-V7 10/24/75 PACE lb 

/STRING ARRAY DISPATCH 

00724 1064 SARRAY, TAD INSAV /GET INSTRUCTION 

AND ke340 /ISOLATE ARRAY OPCODE 

cll rtr 

rtr /and slide it over for an offset 

RAR 

TAD JMPISA /BUILD A JUMP TO STRING INSTRCUTION 

DCA SAD /AND PUT IN LINE 

STL /TELL SFIND TO USE ARRAY TABLE 

JMS I STFILK /SET UP ARGUMENT ADDRESS 

00735 0735 SAO, , /EXECUTE INSTRCUTION 

/STRING ARRAY JUMP TABLE 

/USED WHEN ARRAYI CALLED IN SMODE 

/ A "/*'• IN THE COMMENT MEANS THAT OPCODE IS UNDEFINED AND THE SLOT 

/IN THE TABLES IS USED FOR NORMAL STORAGE 

00736 5737 JMPISA» JMP I ,♦! /DISPATCH JUMP FOR STRING ARRAY INSTRUCTIONS 



00725 


0100 


00726 


7112 


00727 


7012 


00730 


7010 


00731 


1336 


00732 


3335 


00733 


7120 


00734 


4743 



00737 


2200 




SCONl 


/SAC^SAC»C(AS(S1)) 


00740 


2061 




SCOMP 


/SKIP IF SAC«CCA$tSl)) 


00741 


2417 




8READ 


/AStSn^DEVICE 


00742 


0037 


K0037i 


37 


/• 


B0743 


1666 


STFILK, 


STFIND 


/• LINK TO STRING FINDING ROUTINE 


00744 


3150 




SLOAD 


/8ACj.CtA$CSl)) 


00745 


0477 




SSTORE 


/CCAS(S1)3^SAC 


00746 


4714 


JMPI2, 


JMS I AJT 


/* DISPATCH JUMP FOR ARRAY INST 



• 



/OS/8 BASIC RUNTIME SYSTEM P*L«-V7 10/2^/72 PAGE Ife 

/ROUTINE TO PUT ONE WORD IN FILE BUFFEH IN FIELD 1 



00747 


0000 


BCPUT, 









007S0 


3050 




OCA 


TEMP6 


/SAVE AC 


007S1 


4523 




JMS 


I HOLE 


/CHECK IF FILE OPEN 


00752 


1566 




TAD 


I W0R03 


/GET READ/WRITE POINTER 


00753 


3051 




OCA 


TEMP7 


/SAVE 


00754 


1162 




TAD 


ENTNO 


/GET FILE # 


00755 


7640 




8ZA 


CLA 


/IF TTV, BUFFER FIELD IS 


00756 


6211 




CDF 


10 




00757 


1050 




TAD 


TEMP6 


/GET WORD TO STORE AGAIN 


00760 


3451 




DCA 


I TEMP7 


/STORE IT IN BUFFER 


00761 


6201 


COF0, 


CDF 






00762 


1563 




TAD 


I WORO0 


/HEADER WORD 


00763 


0370 




AND 


K7737 


/TURN OFF BLOCK WRITTEN B 


00764 


1367 




T*0 


K40 


/TURN IT ON AGAIN 


00765 


3563 




DCA 


I WORO0 




00766 


5747 




JMP 


I BCPUT 


/RETURN 


00767 


0040 


K40, 


40 






00770 


7737 


K7737, 


7737 








/ROUTINE TO 


SET STM OF 


TO 






TEMP30, 








00771 


0000 


SRESET, 









00772 


1361 




TAD 


CDF0 




00773 


3775 




OCA 


I STHOKK 




00774 


5771 




JMP 


I SRE8ET 




00775 


2603 


STHOKK, 


STMOF 





/OS/8 BASIC RUNTIME SYSTEM 
1(900 PAGE 



PALe-V7 10/24/72 PAGE U 



01000 
01001 
01002 
01003 
01004 
01005 
01006 
01007 
01010 
01011 
01012 
01013 
01014 
01015 
010U 
01017 
01020 
01021 
01022 
01023 
01024 

01025 
01026 
01027 
01030 

01031 
01032 
01033 



0000 
3040 
2017 
4234 
7000 
1230 
76S0 
5202 
1040 
3623 
222S 
7340 
1230 
3230 
1225 
1231 
7750 
S600 
1227 
3225 
5600 

1070 
1070 

1070 
0050 



/TELtTVPE DRIVING ROUTINE 

/2 ENTRY POIMTS-XPUTCH PUTS A CHARCTER IN fHE RING BUFFER 

/ XPRINT TYPES A CHARACTER IF POSSIBLE 

/ AND RETURNS TO CAUL+l IF THERE 

/ ARE MORE CHARCTERS IN THE SUFFER, CALU*2 

/ IF THE BUFFER IS EMPTY 

/THE IDEA IS THE PLACE CALLS TO XPRINT AT VARIOUS POINTS IN THE IWTER- 

/PRETER AND THUS KEEP THE TTY BUSY WITHOUT WASTING THE TIME WAITING FOR 

/THE TTY FLAG, THE SUCCESS OF THIS SCHEME DEPENDS HEAVILY ON THE NUMBER 

/AND PLACEMENT OF THE CALLS TO XPRINT, 



XPUTCH, 



XPUTl, 



PUTCMR, 



DCA CHRSAV 

ISZ SPINNR 

JMS XPRINT 

NOP 

TAD BCNT 

SNA CLA 

JMP XPUTl 
TAD CHRSAV 
DCA I BUFIN 
ISZ BUFIN 
CLA CLL, CMA 
TAD BCNT 
OCA BCNT 
TAD BUFIN 
TAD MBEND 
SPA SNA CLA 

JMP I XPUTCH 
TAD B8TRTA 
DCA BUFIN 
JMP I XPUTCH 



6641 
7575 
7730 



BUFIN, 88TRT 

BUFOUT, BSTRT 

BSTRTA, BSTRT 

BCNT, 50 
CHRSAViTEMPl 

MBENO, -BEND 

MCTRLC, «203 

M50, -50 



/SAVE THE CHARACTER 
/SPIN RANDOM # SEED 
/START A CHAR IF POSSIBLE 

/GET THE NUMBER OF AVAILABLE SLOTS 

/ARE THERE ANY? 

/NO-TRY TO RPINT 1 AND FREE UP A SPACE 

/GET CHARACTER AGAIN 

/PUT CHARACTER IN RING BUFFER 

/BUMP BUFEER POINTER OF INPUT 

/-I IN AC 

/DECREMENT AVAILABLE SLOT COUNT 

/GET BUFFER INPUT POINTER 

/SUBTRACT ADOR OF END OF BUFFER 

/PAST EDN OF BUFFER? 

/NO-RETURN 

/YES-RESET INPUT POINTER TO BEGINNING OF BUFFER 

/RETURN 

/POINTER TO NEXT SLOT FOR BUFFER INPUT 
/POINTER TO NEXT CHARACTER TO BE PRINTED 
/ADDS OF START OF TTY BUFFER 
/# OK AVAILABLE SLOTS IN BUFFER (40 INITIALLY^ 

/-ADOR OF END OP RING BUFFER 



01034 0000 XPRINT, 



01035 
01036 
01037 
01040 
01041 
01042 
01043 
01044 



6031 
5244 
1077 
6034 
1232 
7650 
5561 
1230 



NOCC, 



KSf 

JMP NOCC 
TAO K0200 
KRS 

TAO MCTRLC 
SNA CLA 

JMP 1 FSTOPl 
TAO BCNT 



/IS KEYBOARD FLAG UP? 

/NO-NO CHANCE FOR A CTRL/C 

/FORCE PARAITY BIT 

/YES-GET THE CHAR IN KEYBOARD BUFFE^f 

/IS IT CTRC/C 

/YfeS-ABORT TO EDITOR 

/# OF AVAILABLE SLOTS IN SUFFER 



# 



/OS/8 BASIC RUNTIME SYSTEM 



01045 
01046 
01047 



1233 
7650 
5S66 



01050 6041 

01051 5634 

01052 1626 



TAD MSB 
SNA CLA 

JMP RECP2 
TSF 

JMP 1 XPRINT 
TAO 1 BUFOUT 



PAL8-V7 10/24/72 PAGE 17-1 
/IS BUFFER EMPTY? 



/YES-RETURN TO CA|,U*2 
/NO-TTY FLAG UP YET? 
/NO-GO ABOUT YOUR BUSINESS 
/GET NEXT CHARACTER 

/********************************ilrt*******************************t 

/N.B, BECAUSE OF THE ABOVE INSTRUCTION, THE OF MUST BE SET TO THE 
/INTERPRETER FIELD WHENEVER XPRINT IS CALLED, WATCH YOUR HOOK PLACEMENTl 

/***•*«****««***•«**««*«***«««*•«*«*«*****«*)»**«*«««««*««««««*«««) 

/TYPE IT 

/BUMP BUFFER OUTPUT POINTER 

/GET OUTPUT POINTER 

/SUBTRACT END OF BUFFER 

/IS OUTPUT POINTER PAST END? 

/NO"FREE UP A SPOT 

/YES-RESET POINTER TO BEGINNING 

/INCREMENT « OF FREE SLOTS tWE JUST PRINTED ONE) 
/RETURN 

/BUMP RETURN 

/RETURN TO CALL+2 FOR EMPTY BUFFER 



01053 


6046 




TLS 


01054 


7300 




CUA CLL 


01055 


2226 




ISZ BUFOUT 


01056 


1226 




TAO BUFOUT 


01057 


1231 




TAO MBEND 


01060 


7750 




SPA SNA CLA 


01061 


5264 




JMP BOUTRS 


01062 


1227 




TAO B8TRTA 


01063 


3226 




DCA BUFOUT 


01064 


2230 


BOUTRSf 


ISZ BCNT 


01065 


5634 




JMP I XPRINT 


01066 


2234 


RECP2| 


ISZ XPRINT 


01067 


5634 




JMP I XPRINT 



/TELETYPE RING BUFFER 



01070 


0000 B8TRT. 


01071 


0000 





01072 


0000 





01073 


0000 





01074 


0000 





01075 


0000 





01076 


0000 





01077 


0000 





01100 


0000 





01101 


0000 





01102 


0000 





01103 


0000 





01104 


0000 





01105 


0000 





01106 


0000 





01107 


0000 





01110 


0000 





01111 


0000 





01112 


0000 





01113 


0000 





01114 


0000 





01115 


0000 





01116 


0000 





01117 


0000 





01120 


0000 





01121 


0000 





01122 


0000 






/START OF BUFFER 



/40 CHARACTERS LONG 



/OS/8 BASIC HUNTIME SYSTEM P4L.8-V7 10/^4/72 PAGE {7-2 



01123 


0000 





eiiiti 


0000 





01U5 


0000 





01126 


0000 





01127 


0000 





01130 


0000 





01131 


0000 





01132 


0000 





01133 


0000 





01131 


0000 





01135 


0000 





01136 


0000 






01137 0000 BEND, /END OF TTY BUFFEH 



# 



/DS/8 BASIC RUNTIME SYSTEM 



PALB-V7 10/24/72 PACE 18 



/LINt NUM8ERS 



01140 


1064 


LINEI, 


TAD INSAV 


01141 


3065 




OCA IINEHI 


0114S 


4520 




JMS I PWFECU 


01143 


3066 




OCA LINELO 


01144 


5513 


TRHOOKi 


JMP I ILODPU 


0114S 


1351 




TAO KC240 


01146 


3064 




OCA INSAV 


01147 


5750 




JMP I .♦I 


01190 


I47a 




FUNC2I 



/GET INSTRUCTION 

/SAVE 

/GET WORD FOLLOWING LINE # INST 

/SAVE AS LOM ORDER LINE « 

/RETURN TO I-LOOP 

/IF TRACE IS ON, FAKE CALL 

/TO PUNC2,#12 

/DISPATCH TO TRACE FUNCTION 



/////////////////////////////////////////////////////////// 
////////// INTERMEDIATE TELETYPE BUFFER /////////////////// 
/////////////////////////////////////////////////////////// 

/USED TO BUFFER OUTPUT FROM FPP BEFORE WE PUT IT 
/IN BASIC FORMAT FOR TRANSPORTATION TO THE TTV RING 
/BUFFER, FILLED WITH INITIALIZATION CODE WHEN ENTERED 

/STOPPER TO MARK BEGINNING OF BUFFER 

/CDF FOR PSEUDO-CODE f>^f' yT^ 1 K C "/i 
/PUT IN-LINE TO ILOOP 
/START OF PSEUDO-CODE 
/PUT INTO PC 

/CDF FOR SYMBOL TABLE FIELD 6^" F ^^ ^'^ 

/PUT IN LINE FOR STRING FUNCTIONS 

/CDF FOR SYMBOL TABLES 

/PUT IN LINE FOR ARRAY CALCULATIONS 

/COF FOR SCALAR TABLE 

/PUT IN LINE FOR ARGPRE 

/DATA FIELD FOR DATA LIST 

/DO A RESTORE IN INCORE DATA LIST 

/CONTINUE INITAILIZATION CODE IN TTY INPUT BUFFER 



/FLOATING POINT TEMPORARY 



01151 


0240 


KC240, 
INTEHB, 


240 




01152 


1025 


START3> 


TAD 


CDFPS 


01153 


3515 




DCA 


I C0FP8L 


01154 


1026 




TAD 


PSSTRT 


01155 


3775 




DCA 


1 INTPCK 


01156 


4537 




JMS 


I FCLR 


01157 


1020 




TAD 


CDFIO 


01160 


3774 




DCA 


I STDFL 


01161 


1020 


FPPTM5, 


TAD 


CDFIO 


01162 


3773 




DCA 


I ATA8DL 


01163 


1020 




TAD 


CDFIO 


01164 


3777 


FPPTM4, 


DCA 


I SCALOL 


01165 


1020 




TAD 


CDFIO 


01166 


3776 




OCA 


I OLCDFL 


01167 


1030 


FPPTM3, 


TAD 


DLSTRT 


01170 


3016 




DCA 


OLPTR 


01171 


5772 




JMP 


I .♦! 


01172 


6600 


FPPTH2, 


START4 


01173 


0610 


ATABDLi 


ATABDF 


01174 


1701 


STDFL, 


STDF 






FPPTMl, 






01175 


0302 


INTPCK, 


INTPC 


01176 


2317 


OLCOFL, 


OLCDF 


01177 


0317 


SCALOLf 


SCALDF 






//////////////////// 



/////////////////////////////////////// 



/OS/8 BASIC RUNTIME SYSTEM 
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120(9 PAGE 

/OPEKATE CLASS INSTRUCTIONS 



01200 


1064 


OPERl, 


TAO 


INSAV 


01201 


0074 




AND 


K001/ 


01202 


1205 




TAD 


JMHIJ 


01203 


3204 




DCA 


.♦I 


01204 


1204 




• 





01205 5b06 



JMPI3, JMP I .♦! 
/OPERATE JUMP TABLE 



01206 


1542 




FUNC3I 


01207 


1600 




SPFUNC 


01210 


2000 




SFN 


01211 


1226 




FNEGI 


01212 


6550 




RETRNl 


01213 


2572 




RESTOR 


01214 


1403 




L8UB1I 


01215 


1413 




LSUB2I 


01216 


0020 


MSPACE, 


20 


01217 


3105 




READI 


01220 


3200 




WRITEI 


01221 


2460 




SWRITE 


01222 


1471 




FUNC5I 


01223 


1466 




FUNC4I 


01224 


1473 




FUNCII 


01225 


1472 


y 


PUNC2I 






/ 

/FLOATING NEGATE 


01226 


4540 


FNEGI, 


JMS I FNEGL 


01227 


5513 




JMP I ILOOPL 



/GfcT OPERATE INSTRUCTION 

/MASK OFF OPERATE OPCODE 

/BUILD JUMP OFF OPERATE JUMPTASUE 

/STORE THE JUMP IN LINE 

/DISPATCH TO PROPER OPEHATt MOUTINE 

/JUMP TO OPERATE ROUTINE CALLED FOR 



/CALL RESIDENT FUNCTION DPCOUE 

/SPECIAL FUNCTIONS OPCODE 1 

/SET FILE NUMBER OPCODE 2 

/NEGATE FAC OPCODE 3 

/G08UB RETURN OPCODE 4 

/RESTORE DEVICE OPCODE 5 

/LOAD SI FROM FAC OPCODE 6 

/LOAD S2 FROM FAC OPCODE 7 

/THIS OPCODE NOT DEFINED, SO WE PUT A CONST HERE 



/READ DEVICE 
/WRITE DEVICE 
/STRING WRITE 
/CALL FILE FUNCTION 
/CALL USER FUNCTION 
/CALL FUNCTIONS 1 
/CALL FUNCTIONS 2 



/CALL NEGATE ROUTINE 
/RETURN TO ILOOP 



OPCODE 11 
OPCODE 12 
OPCODE 13 
OPCODE 14 
OPCODE 15 
OPCODE 16 
OPCODE 17 



# 



• 



# 



# 



/OS/8 BASIC RUNTIME SYSTEM 
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i/Q^^ 01230 
\']M^ 01231 



01232 
01233 
01234 
01235 

01236 
01237 

01240 
01241 
01242 
01243 
01244 
01245 
01246 
01247 
01250 
01251 
01252 
01253 
01254 
01255 
01256 
01257 



0000 

1253 

3040 

1031 

7700 

1077 

1103 

3007 

7402 

1407 

3043 

6211 

1440 

7402 

3407 

6211 

1043 

3440 

2007 

7600 

2040 

5240 

6201 

5630 



/ROUTINE TO SWAP PG 17600 WITH N7400 OR N7600 tWHICHtVER THE CASE MAY BEl 
/WHEKE N IS THfe HIGH CORE FIELD «; u c nor ocj 



PSWAP, 



PICDF, 
P2CDf, 



OCA TEMPI 
TAD PSFLA6 
SMA CLA 

TAD K200 
TAD K7400 
DCA TEMPS 

TAD 1 TEMP2 
DCA TEMP4 



— /POINTER TO 1T600 *NEh.eetWT€« " 9»^^(A f^ ^ f^ S ^ iX 



CDF 10 
PlCDFl, HUT C^P(^ fOfiK 



/GET RESIDENT STATUS FLAG JSvC-2^ (^ 

/WHICH HI-CORE PAGE IS IT IN? 

/7600 

/7400 

/POINTER TO HIGH CORE 

/DF TO HI CORE (~ 

/GET WORD FROM HI CORE 

/SAVE IT 



( \7 t ^'-^f-^ 



DCA I TEMP2 
P2CDF1, CDF 10 

TAD TEMP4 

OCA I TEMPI 

I8Z TEMP2 
KK7600I 7600 

I5Z TEMPI 
JMP PI CDF 

CDF 

JMP I PSWAP 



/OF TO HI CORE AGAIN ^>^t^ 
/PUT 17600 WORD IN HI CORE 



s%K cT:}fp^ 



/GET SAVED HI CORE WORD 

/AND PUT IN 17600 

/BUMP HI CORE POINTER 

/CLA 

/BUMP 17600 POINTER AND CHECK FOR DONE 

/NO DONE-MOVE NEXT WORD 

/DONE-RETURN 



^^ :U^ cjic e-^J^-9 g) 3^} 



/OS/8 BASIC RUNTIME SYSTEM 



PAL8"V7 \!d/iU/72 P4(it PA 



/SUBHOUTINE ASCOUT 

/ROUTINE CALLED BY WRITE WITH THE NUMBER TO BE WRITTEN IN FAC, 

/CALLS THE FPP TO OUTPUT THE DIGITS TO AN INTERMEDIATE BUFFER, THEN 

/MASSAUES THAT BUFFER TO PUT OUTPUT IN BASIC FORMAT. 



01S60 

01261 

01262 

01263 

01264 

01265 

01266 

01267 

01270 

01271 

01272 

01273 

01274 

01275 

01276 

01277 

01300 

01301 

01302 

01303 

01304 

01305 

01306 

01307 

01310 

01311 

01312 

01313 

01314 

01315 

01316 

01317 

01320 

01321 

01322 

01323 

01324 

01325 

01326 

01327 

01330 

01331 
01532 
01333 
01334 
01335 
01336 



0000 ASCOUTr 

4532 JMS I FACSAL 
1045 TAD HORD 
7650 SNA CLA 
5302 JMP FFORMT 
4776 JMS I ABSVLL 
4771 JMS I FSUBLK 
2514 A999 

1045 TAD HORO 

7740 SMA SZA CLA 
5307 JMP E20P10 

4533 JMS I FACREL 
4776 JMS I ABSVLL 
4771 JMS I FSU8LK 
2175 AP0001 
1045 TAD HORD 
7710 SPA CLA 
5307 JMP E20P10 
1073 FFORMTf TAD K0010 

3060 OCA OADP 
1216 TAD MSPACE 
3057 DCA FLOW 
7001 lAC 

3056 E20P10f DCA EFL6 

4533 JMS I FACREL 

1372 TAD INTRB 

3013 DCA XRS 

4773 JMS I FPOUTL 

7240 CLA CMA 

1013 TAD XR3 

3061 OCA TEMP10 
3007 DCA TEMP2 

3042 DCA TEMP3 

3043 OCA TEMP4 
7240 CFETCH, CLA CMA 
1061 TAD TEMP10 
3061 DCA TEMP10 
1461 TAD 1 TEMPIB 

1374 TAD M260 
7450 SNA 
5342 JMP ZR 

1216 TAO MSPACE 

7450 SNA 
5660 JMP I ASCOUT 

2307 ZROF^, ISZ TEMP2 

1375 TAO MOECPT 
7650 SNA CLA 



/SAVE THE FAC 
/GET HI MANTISSA 
/IS NUMBER 0? 
/YES-USE F FORMAT 
/ABS(X) 
/ABS(X)-9999<)9 

/GET HI MANTISSA OF RESULT 

/IS AeS(X3>999999? 

/YES-USE E FORMAT FOR OUTPUT 

/GET X AGAIN 

/ABSCX) 

/ABS(X}<>. 000001 



/IS ABS(X)>, 000001? 
/NO-USE E FORMAT 

/8 PLACES AFTER DEC PT 

/16 COLUMNS IN FIELD WIDTH 

/SET FLAG FOR F FORMAT 

/SET FORMAT FLAG 

/GET X BACK IN FAC 

/ADOR OF INTERMEDIATE BUFFER-! 

/XR3 POINTS TO INTERMEDIATE BUFFER 

/USE FPP TO PUT ASCII NUMBER IN INTERMEDIATE BUFFER 

/-I IN AC 

/ADOR OF LF IN INTER 8UFFER-1 

/TEMPIB POINTS TO CR IN BUFFER 

/CLEAR CHARACTER COUNT 

/CLEAR ZERO REPLACE FLAG 

/CLEAR DECIMAL POINT SEEN FLAG 

/-I IN AC 

/BACK UP POINTER TO NEXT CHAR 

/GET CHAR FROM BUFFER 

/-"0'" 

/IS IT »0"7 

/YES-REPLACE WITH CR IF ZERO FLAG NOT SET 

/OR ALTMOOE IF IN E FORMAT AND DECPT HAS BEEN SEEN, 

/IS IT " "? 

/YES-DONE-PREPARE THt NUMBER FOR TYPINii 
/NO-BUMP CHAR COUNT 
/IS IT '"."? 



# 



t 



/DS/8 BASIC RUNTIME SYSTEM 



01337 53b3 

01340 2042 

01341 5322 



01342 
01343 
01344 
01345 
01346 
01347 
013S0 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 

01363 
01364 
0136S 
01366 
01367 
01370 

01371 
01372 
01373 
01374 
01375 
01376 



1056 
7640 
5352 

1043 
7650 
5334 
1101 
5361 
1043 
7640 
5334 
1042 
7640 
5334 
1054 
3461 
5322 

2043 
7240 
1007 
7640 
5322 
5360 

6117 
1151 

4600 
7520 
7762 
2366 



JMP COUNCK 
ISZ TEMP3 
JMP CFETCH 

ZR, TAO EFLG 
SZA CLA 

JMP ZKCONT 
TAD TEMP4 
SNA CLA 

JMP ZROFF 
TAD K0377 
JMP CR8EP*l 
ZRCONT. TAD TEMP4 
SZA CLA 

JMP ZROFF 
TAO TEMP3 
SZA CLA 

JMP ZROFF 
CRREP, TAD K21S 

OCA I TCMP10 
JMP CFETCH 

COUNCK, ISZ TeMP4 
CLA CMA 
TAD TEMP2 
SZA CLA 

JMP CFETCH 
JMP CRREP 

F8U9LK, FF8U8 
INTRtt, INTERB-1 
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/YfcS-IP COUNT«0, REPLACE WITH CR 
/NO-TURN OF ZERO REPLACE 
/NEXT 

/YES«GET FORMAT FLAG 
/ARE WE IN E FORMAT? 
/NO-PROCEEO TO CHECK ZERO REPLACE FLAG 

/MAS DECIMAL POINT BEEN SEEN YET? 
/NO-THIS ZERO STAYS, SO COUNT IT 
/YES-THIS IS THE ZERO BEFORE THE POINT 
/SO REPLACE IT WITH AN ALTMODE 
/HAS A PERIOD BEEN SEEN YET? 

/YES-THIS ZERO STAYS 

/GET ZERO REPLACE FLAG 

/IS IT ON? 

/YE8-D0N»T REPLACE ZEROES 

/NOnREPLACE THIS ZERO MITH A CR 

/YES-REPLACE WITH CR 

/NEXT CHAR 

/SET DECIMAL POINT SEEN FLAG 

/-I IN AC 

/GET CHAR COUNT 

/IS IT 1 (, WAS FIRST COUNTED CHAR)? 

/NO»OON»T REPLACE , WITH CR 

/YES-REPLACE , WITH CR 



FFOUTL» 
M260> 
MDECPT, 
ABSVLL, 



FFOUT 
.260 
-16 
ABSVAL 



/OS/B BASIC RUNTIME SYSTEM 
1400 PAGE 



PAU8-V7 l0/8«/72 PAGE ii 



/LOAU SUBSCRIPT 1 



0H00 


4533 


LSII, 


JMS I FACSAL 


01401 


4620 




JMS I ARGPRL 


01402 


4534 




JMS I F6ETU 


01403 


4532 


LSUBII, 


JMS I FACSAL 


01404 


4514 




JMS 1 INTL 


01405 


3033 




DCA SI 


01406 


4533 




JMS I FACRtL 


01407 


5513 




JMP I ILOOPL 






/LOAD SUBSCRIPT 2 


01410 


4532 


LS2I, 


JMS I FACSAL 


01411 


4620 




JMS I ARGPKU 


01«12 


4534 




JMS I FGETL 


01413 


4532 


USUB2Ir 


JMS I FACSAL 


01414 


4514 




JMS I INTL 


01415 


3034 




DCA $2 


01416 


4533 




JMS 1 FACREL 


01417 


5513 




JMP I ILOOPL 


01420 


0307 


ARGPRUr 


ARGPRE 



/PRESERVE FAC 

/GET ARG POINTER INTO AC 

/LOAD ARG INTO FAC (SKIPS NEXT INST ON RETURN) 

/SAVE THE FAC 

/GET INT(FAC) 

/SET RESULT AS SUBSCRIPT 1 

/RESTORE FAC 

/NEXT INSTRCUTION 



/PRESERVE FAC 

/GET ARG POINTER INTO AC 

/LOAD ARG INTO FAC (SKIPS NEXT INST ON RETURN) 

/SAVE THE FAC 

/GET INT(FAC) 

/SET RESULT AS SUBSCRIPT 2 

/RESTORE THE FAC 

/BACK TO ILOOP 



# 



/OS/8 BASIC RUNTIME SYSTEM PAL8-V7 10/54/78 PAGE 23 

/JMP DISPATCH FOR FUNCl CALLS 

01«21 4622 JMS14, JMS I ,*l /CALL FOR CANNED FUNCTION SET 1 

/JUMP TABLE FOR FUNCTION CALL 1 



01422 


4200 


FFATN 


/FUNCTION 


BITS' 


01423 


4053 


FFCOS 




1 


C91424 


4120 


FFEXP 




2 


01425 


3477 


EXPON 




3 


01426 


3400 


INT 




4 


01427 


4263 


FFLOG 




5 


01430 


3632 


SGN 




6 


01431 


4000 


FFSIN 




7 


01432 


4543 


RND 




10 


01433 


3646 


FROOT 




/U 



/JUMP FOR FUNC2 DISPATCH 
01434 4635 JMSI5, JMS I .♦I /JMS OFF THE SET 2 TABLE 
/JUMP TABLE FOR FUNCTION SET 2 



01435 


3407 


01436 


3400 


01437 


3600 


01440 


3414 


01441 


4400 


01442 


4266 


01443 


3422 


01444 


3462 


01445 


4013 


01446 


4000 


01447 


3677 



ASC 

CHR 

DATE 

LEN 

POS 

SEG 

STR 

VAL 

ERRORR 



/FUNCTION BITS" 

/ 1 

/ 2 

/ 3 

/ 4 

/ 5 

/ 6 

/ 7 

/ 18 



/ERRORR MUST BE FUNCTION #10, ELSE "ERROPC" MUST CHANGE 

TRACE / 11 

TPRINT / 12 

/TPRINT MUST BE #12 OR TRHOOK+1 MUST CHANGE 

/DISPATCH FOR FUNC5 CALLS 

014S0 5651 JMPFIL* JMP I ,+1 /CALL FORR FILE MANIPULATING FUNCTIONS 

/JUMP TABLE FOR FILE FUNCTIONS 



{'H'\ 01451 

\\Jc^ 01452 

iaSt0H53 

V(^l«1454 

^01455 

t(01456 

K'01457 



01460 
01461 



3600^ 

3405i-^ 

4001^ 

4000^ 

4004- 

4003- 



CHAIN 

CLOSE 

OPENAF 

OPENAV 

OPENNF 

OPENNV 

FSTOP 



/FUNCTION BITS" 

/ 1 

/ 2 

/ 3 

/ 4 

/ 5 

/INT. EXIT 6 



/ROUTINTE TO CALL ERROR ROUTINE BY FAKING A FUNC5 CALL TO FUNCTION #10 

0000 ERHDIS. laN. 

7300 CLANCLL /flush 






/OS/8 BASIC RUNTIME SyST>EM PAL6-V7 10/^4/7? PAGE 23-1 

BiafeS 1327 TAD lNu>07 

0H63 306<t OCA IN8«AV /FAKt A FUNC CALL TO FUNC2 #10 

0ia6« 5272 JMP FUMCl 

/€RROR CALL FOR USKR FUNCTIONS-USER FUNCTION SHOULD "JMS I lAL" 

01465 4260 lA, JMS ERRDIS 



• • • 



• 



/OS/8 BASIC RUNTIME SYSTEM 



PAL8-V7 10/24/72 PAGE 34 



/FUNCTION OVERLAY DRIVER 



01466 


4510 


FUNC41, 


JMS I PRINT 


01067 


5266 




JMP ,-1 


01470 


7001 




lAC 


01471 


7001 


FUNC5I, 


lAC 


01«72 


7001 


FUNC2I, 


lAC 


01473 


3000 


FUNClIr 


OCA TEMPI 


01474 


6201 




CDF 


0147S 


1040 




TAD TEMPI 


01476 


7041 




CIA 


01477 


1330 




TAD OVRLAY 


01S00 


7650 




SNA CIA 


01501 


5316 




JMP OVDNE 


01502 


1040 




TAD TEMPI 


01503 


1326 




TAD OATAOI 


01504 


3007 




OCA TEMP2 


01S05 


1407 




TAD I TEMP2 


01S06 


3312 




DCA OVADD 


01507 


4727 




JMS 1 L7607 


01510 


0500 




0500 


01511 


3400 




3400 


01513 


1512 


OVAOt), 


• 


01513 


4516 


OE, 


JMS I ERROR 


01514 


1040 




TAD TEMPI 


01515 


3330 




DCA OVRLAY 


01516 


1040 


OVDNE, 


TAD TEMPI 


01517 


1335 




TAD JM8TAD 


01520 


3322 




DCA ,*Z 


01521 


4517 




JMS I PBITS 


01522 


1522 




fl 


01523 


3324 


FUJUMP, 


DCA .*l 


01524 


1524 




t 


01525 


5513 




JMP I ILOOPL 


01526 


1531 


OATAUI, 


ARITHA 


01527 


7607 


U7607, 


7607 


01530 


0000 


OVRUAY, 






01531 

01532 
01533 
01534 



/PURGE TTY RING BUFFER 

/BEFORE CALLING USER FUNCTION 

/LOOK FOR OVERLAY FLAGsJ 

/LOOK FOR OVERLAY FLAG»2 

/LOOK FOR OVERLAY FLAGsl 

/LOOK FOR OVERLAY FLAG»0 

/OF TO THIS FIELD 

/GET OVERLAY • AGAIN 

/NEGATfc 

/COMPARE AGAINST OVERLAY FLAG 

/IS THE ONE WE WANT ALREADY RESIDENT? 

/YES-JUST JUMP TO FUNCTION 

/NO-GET NUMBER OF OVERALY DESIRED 

/USE AS OFFSET TO BUILD STARTING BLOCK TAD 

/POINTS TO PROPER STARING BLOCK » 

/GET STARTING BLOCK FOR THIS OVERLAY 

/PUT IN DRIVER CALL 

/CALL SYSTEM HANDLER 

/OVERLAY 3400-4600 

/STARTING BLOCK # OF OVERLAY 
/I/O ERROR 

/CHANGE RESIDENT FLAG 

/FUNCTION # 

/BUILD A TAD OF THE PROPER DISPATCH JMS 

/PUT IN LINE 

/GET # OF FUNCTION DESIRED 

/BUILD JUMP OFF JUMP TABLE 

/PUT JUMP IN LINE 

/GO TO DESIRED FUNCTION 

/DONE 



/# OF CURRENTLY RESIDENT OVERLAY 
/0»ARITHMETIC,1"STRING,2»FILE,3»USER 



/OVERLAY TABLE-CONTAINS STARTING BLOCK KtJlVSYSUM OVERLAYS 
/INITIALIZED BY LOAOER-f- JZ-^ OroU C^^^^-& @ 3, Jl / 



1531 

1532 
1533 
1534 



ARITHA, 
STRNGA, 
FILEFA, 
USRA, 



/STARTING BLOCK OF ARITHMETIC OVERLAY 

/STARTING BLOCK OF STRING OVERLAY 

/STARTING BLOCK OF FILE OVERLAY 

/STARTING BLOCK OF USER FUNCTIONS 



01535 1736 JMSTAD, TAD I TADTaB 



01536 1421 

01537 1434 
01540 14Se 



TAOTAB, JMSI4 
JMSI5 
JMPFIL 



1^ 



/OS/8 BASIC RUNTIME SYSTEM 
01541 1557 JMSU5R 



PAL6-V7 10/54/73 PAGE 34-1 



# 



• 



/OS/8 BASIC RUNTIME SYSTEM 



PAL8-V7 10/24/72 PAGE 25 



/CALL FOR RESIDENT FUNCTION 



01542 


4517 


ai543 


1345 


01544 


5323 



FUNC3I, JMS I FBITS 
TAD JM8I7 
JMP FUJUMP 



/ISOLATE FUNCTION # 

/MAKE A JUMP OFF JUMP TABLE 

/PUT THE JUMP IN LINE AND EXECUTE IT 



01545 4746 JMSI7, JMS I ,♦! 

/JUMP TABLE FOR RESIDENT FUNCTIONS 



01546 


2366 


ABSVAL 


01547 


2517 


COMMA 


01550 


0373 


CRFUNC 


01551 


0240 


ILODPF 


01552 


1757 


TAB 


01553 


1770 


PNT 


01554 


0574 


USE 



/FUNCTION BITS* 

/ 1 

/ 2 

/ 3 

/ 4 

/ 5 

/ 6 



1557 



01557 4760 



*1557 /****N,B|**** 

/THIS TABLE CANNOT 

/JUMP DISPATCH FOR USER ROUTINES 
JM8U8R, JMS I .♦I 



BE MOVED! I U 







/JUMP TABLE FOR USER FUNCTIONS 




01560 


0240 


ILOOPF /USER FUNCTION 


1 


01561 


0240 


ILOOPF / 


2 


01562 


0240 


ILOOPF / 


3 


01563 


0240 


ILOOPF / 


4 


01564 


0240 


ILOOPF / 


5 


01565 


0240 


ILOOPF / 


6 


01566 


0240 


ILOOPF / 


7 


01567 


0240 


ILOOPF / 


a 


01570 


0240 


ILOOPF / 


9 


01571 


0240 


ILOOPF / 


10 


01572 


0240 


ILOOPF / 


11 


01573 


0240 


ILOOPF / 


12 


01574 


0240 


ILOOPF / 


13 


01575 


0240 


ILOOPF / 


14 


01576 


0240 


ILOOPF / 


15 


01577 


0240 


ILOOPF / 


16 



/OS/B BASIC RUNTIME SYSTEM PAL8-V7 10/24/72 RASE 2b 
1600 PAGE 

/SPECIAL FUNCTIONS 

01*00 ^517 SPFUNC, JMS I FBITS /ISOLATE FUNCTION BITS 

01601 1204 TAD JMPIb /MAKE A JUMP OFF SPECIAL FUNCTION TABLE 

01602 3203 OCA ,+1 /PUT IN LINE 

01603 1603 . 

01604 5605 JMPIb, JMP I ,*1 /JUMP TO SPECIAL FUNCTION ROUTINE 

/SPECIAL FUNCTION JUMP TABLE 



01605 


2054 


SETF 


/SET FSWITCH 





01606 


2342 


FRANDM 


/RANDOMIZE 


1 


01607 


0561 


FSTOPN 


/LEAVE INTERPRETER 


2 


01610 


2400 


SRLIST 


/STRING READ FROM DATA LIST 


3 


01611 


2001 


CSFN 


/SET FILE # TO TTY 


4 


01612 


6556 


RDLIST 


/READ DATA LIST 


5 


01613 


2324 


AMODE 


/SWITCH TO A MODE 


6 


01614 


2323 


SSMODE 


/SWITCH TO S MODE 


7 



# 



/OS/8 BASIC RUNTIME SYSTEM 



PALe-V7 10/24/72 PAGE ?.J 



/SUBKOUTINE UNSFIX-UKSIGIMED INTEGER FIX HOUTINt. FIXS A HOSITIVF 12 HIT 
/NUMBER OUT OF FAC MANTISSA ANO LEAVES RESULT IN AC. RESULT IS AN UNSIGNFU, 
/12 HIT INTEGER 




01615 0000 UNSFlXf 

01616 6301 

01617 1046 

01620 7104 

01621 7200 

01622 1043 

01623 7510 

01624 4516 FM, 

01625 7004 

01626 j04^ _. 

01627 1044 

01630 7750 

01631 S^IS 

01632 1044*^ 

01633 11»TC2> 



01634 
01635 
01636 

-Ami. 



01640 
01641 

01642 
01643 



01646 
101647 



7450 
S246 

7500 „, 
454^WD^ 



3044 
1045 

7110 UNSLP, 
2044 
»^2 





CDF 

TAD LORD 

CLU RAL ' 

CLA 

TAD HORD 

SPA 

JMS I ERROR 
RAL 

DC A HORD 

TAD tfP 
SPA SNA CLA 
. ^MP_J_I^SFIJ<, 
TAD EXP 

TAD M14 

il^A 

JMP UNSOUT 
SMA 

JMS I ERRffp 



01645 5615 



1045 
561S 



■prrTxp 

TAD HORD 
CLL RAR 
ISZ EXP 

JMP UNSLP 



/LOW MANTISSA 

/HI BIT OF LO MANTISSA TO LINK 

/HIGH MANTISSA 

/IS NUMBER POSITIVE? 

/NO-bOOill 

/SHIFT THE SIGN flIT OUT ANO THE 

/MAKilifi IgJITSJiF MANTISSA AND 

/GET EXPONENT 

/IS X>1? 

i^O-FIX IT TO "^ , — , 

/VES-I?ET EXF^EnT 

/SET BINARY POINT AT 12 



MANTISSA OVER, 

!Y P OINT BEtURt H ^T CI 



Cf/k 



"VUTSNt ALWkADY? 

/YES 

/NO-IS # TOO BIG? 
J^i^ 



JMP I UNSFIX 

UNSOUTi TAO HORD 

JMP I UNSFIX 



/NO-STORE COUNT 
/HI MANTISSA 
/SCALE RIGHT 
/DONE? 
-/NO 



X Pa>^? /<K^ Aju\4^ 



/YES-RETURN 



/ANSWER IN AC"^ J^ ^'t£' 



/RESTORE 



01650 
01651 
01652 
01653 
01654 
01655 
01656 
01657 
01660 
01661 
01662 
01663 



0000 
4664 
7240 
1570 
3565 
1564 
3566 
1563 
0265 
3563 
4552 
5650 



RESTI, 





JMS I WRBLKL 
CLA CMA 
TAO I WORDS 



DCA 
TAD 



W0R02 
WORDl 



DCA I WORDS 
TAO I WORO0 
AND K7435 
DCA I WORD0 
JMS I NEXREL 
JMP I RESTI 



/NO-WRITE CURRENT BUFFER 

/-I 

/STARTING BLOCR-1 

/SET CURRENT BLOCK # 

/GET BUFFER ADDRESS 

/USE IT TO RESET READVWRITE POINTER 

/GET HEADER WORD 

/CLEAR EOF BIT, BUFFER WRITTEN BIT, AND CHAR # 

/READ FIRST BLOCK INTO BUFFER 
/DONE 



01664 3350 WRBLKL. WRBLK 

01665 7435 K7435, 7435 



/OS/e BASIC RUNTIME SYSTEM 



PAUe-VT 10/24/72 PAGE 2B 



/SUSKOUTINfc STFIIMD-WHEN CALLED, IF LINK«1 STRING ARtiAV TABLE IS 
/USED, IF L1NK»0 STRING SYMBOL TABLE IS U5E0, RETURNS WITH AC SET 
/TO COF OF OPERAND STRING , STRPTR POINTING TO THE FIRST WORO 
/IN THE STRING, AND THE MAX LENGTH OF THE STRING IS IN STRMAX. ALSO, 
/THE ACTUAL LENGTH OF THE STRING IS IN STRCNT 



01666 


0000 


STFIND, 




01667 


7430 


SZL 




01670 


5347 


JMP SAFIND 


01671 


1064 


TAD 


INSAV 


01672 


0101 


AND 


K0377 


01673 


3040 


OCA 


TEMPI 


01674 


1040 


TAD 


TEMPI 


01675 


7104 


CLL 


RAL 


01676 


1040 


TAD 


TEMPI 


01677 


1023 


TAD 


ST8TRT 


01700 


3012 


STCOM, DCA 


XR2 


01701 


1701 


STOF» , 




01702 


1412 


TAD 


I XR2 


01703 


3072 


DCA 


STRPTR 


01704 


1412 


TAD 


I XR2 


01705 


3062 


OCA 


TEMPll 


01706 


1412 


TAD 


I XR2 


01707 


3070 


OCA 


STRMAX 


01710 


7420 


SNL 




01711 


5337 


JMP SCDF 


01712 


1033 


TAD 


SI 


01713 


3015 


DCA 


BABS 


01714 


1412 


TAD 


1 XR2 


01715 


4405 


JMS 


I NUMCOM 


01716 


5756 


JMP I 8UBERL 


01717 


1070 


TAO 


STRMAX 


01720 


7041 


CIA 




01721 


7101 


CLL 


lAC 


01722 


7110 


CLL 


RAR 


01723 


7101 


CLL 


lAC 


01724 


3042 


DCA 


TEMP3 


01725 


1033 


TAD 


SI 


01726 


4521 


JMS 


I MPYLNK 


01727 


1072 


TAO 


STRPTR 


01730 


3072 


DCA 


STRPTR 


01731 


7004 


RAL 




01732 


1050 


TAD 


TEMP6 


01733 


7106 


CLL 


RTL 


01734 


7004 


RAL 




01735 


1062 


TAD 


TEMPll 


01736 


3062 


DCA 


TEMPll 


01737 


1062 


SCOP* TAD 


TEMPll 


01740 


3341 


OCA 


.♦I 


017«1 


17«1 


• 




01742 


1472 


TAD 


1 STRPTR 


01743 


3071 


DCA 


STRCNT 


01744 


1062 


TAO 


TEMPll 


01745 


6201 


COF 





/IS THIS AN ARRAY INST? 

/YES-POINTER IS INTO ARRAY TABLE 

/GET INST AGAIN 

/ISOLATE OPERAND POINTER 

/NO-SAVE OPERAND POINTER 

/N 

/2N 

/3N (3 WORDS/ENTRY) 

/ADO BASE ADR OF STRING TABLE 

/POINTER TO THIS ENTRY IN STRING TABLE 

/DF TO THAT OF SYMBOL TABLES CSET BY START) 

/GET POINTER TO STRING 

/GET CDF FOR OPERAND STRING 

/SAVE 

/GET MAX LENGTH OF STRING 

/SAVE 

/ARRAY ELEMENT? 

/NO-SKIP THIS SUBSCRIPT CALCULATION 

/GET SUBSCRIPT 

/SET UP 12 BIT COMPARE 

/GET DIMENSION 

/IS S1>0IMENSI0N? 

/YES 

/NO-GET ELEMENT LENGTH 

/MAKE POSITIVE 

/ROUND OFF TO NEAREST MULTIPLE OF 2 

/ DIVIDE BY TWO (C0UNT/2aW0RD COUNT) 

/ADD A WORD FOR HEADER 

/# OF WORDS IN EACH ARRAY ELEMENT 

/GET SUBSCRIPT 

/SUtUEMENT LENGTH (ASSUMES LINK UNCHANGED ON RETJRN) 

/ARRAY OFFSET+POINTER TO A(a) 

/FINAL STRING POINTER 

/CARRY TO BIT 11 

/ADD TO ACCUMLATED OVERLAPS FROM MULTIPLY 

/PUT OVERLAP # INTO BITS 6-8 

/ADD TO CDF IF NECESSARY 

/SAVE AGAIN 

/GET DF OF STRING 

/PUT IN LINE 

/DF TO STRING FIELD 

/GET STRING LENGTH 

/ACTUAL LENGTH OF STRING OPERAND 

/CDF TO OPERAND IN AC 



• 



# 



# 



/OS/8 BASIC RUNTIME SYSTEM PAL8-V7 10/24/72 PAGE 28-1 

017«6 5666 JMP I STf^INO /HfcTUHN 



e)lT«7 1064 SAFIND, TAO ItJSAV 

AND K0037L 
CLL RTL 
TAD SASTRT 
STl 
JMP STCOM 

01755 0037 K0037Lr 0li)37 

01756 0623 SUBERL» SU 



01750 


0355 


01751 


7106 


01752 


1024 


01753 


7120 


017S4 


5300 



/Gtr INST 

/ISOLATE OPERAND POINTER 

/4N (4 WORDS/ENTRY) 

/USE STRING ARRAY TABLE 

/SET LINK FOR ARRAY INST 

/RETURN TO SUBROUTINE MAINLINE 



/TAB FUNCTION 



01757 


0000 TAB 


* 


01760 


4514 


JMS I INTL 


01761 


7041 


CIA 


01762 


1S73 


TAD I WORD10 


01763 


7001 


lAC 


01764 


7500 


SMA 


0176S 


5513 


JMP I ILOOPL 


01766 


5767 


JMP I SLOVEL 



01767 2547 SLOVELr SLOVER 



/FIX X TO INTEGER 

/NEGATE 

/COMPARE DESIRED COLUMN TO REAL COLUMN 

/BUMP BY 1 (WORD 7«C0L #-1) 

/IS X>»CURRENT COLUMN? 

/YES-THEN DO NOTHING 

/NO-AC CONTAINS # OF SPACES NEEDED TO REACH DESIRED COLUMN 



/PNT FUNCTION 

/VALUE OF X SENT TO TTY 



01770 


0000 


PNT, 









01771 


4514 




JMS 


I INTL 


/FIX X 


01772 


0376 




AND 


K0177 


/STRIP TO 7 ASCII BITS 


01773 


1077 




TAD 


K0200 


/FORCE CHANNEL 8 


01774 


4512 




JMS 


I PUTChL 


/PUT IN FILE BUFFER 


01775 


5513 




JMP 


1 ILOOPL 


/DONE 



01776 0177 K0177, 177 



/OS/8 BASIC RUNTIME SYSTFM 



PAL6-V7 lld/dli/7S HAiit ,>^ 



2000 



PAGE 



/ROUIINE SFN-HOUTIImE TO RESET POIMTERS IN PAGE ZERO FILE POINTER 
/AREA TO REFLECT A CHANGE IN THE CURRENT FILE NUMBER 

/FIX FAC TO GET FILE * 

/IF ENTRY IS HERE, FILE #«0 CTTY) 

/GET NUMBER AGAIN 

/IS RESULT A LEGAL FILE #7 

/NO-ERROR 

/YES-GET FILE « 

/SAVE AS CURRENT FILE » 

/USE AS INDEX INTO TAdLE OF MASTER POINTERS 

/POINTS TO FIRST WORD OF EACH 1/0 TABLE ENTRY 

/GET POINTER TO FIRST WORD OF I/O TABLE ENTRY wE WANT 

/PUT IN WORK AREA 

/WE HAVE TO CHANGE li POINTERS 

/POINTER TO LAST ENTRY MADE 

/POINTER TO NEXT ENTRY TO BE BUILT 

/EACH ENTRY IS BUILT 

/BY ADDING 1 TO THE PREVIOUS ENTRY 

/DONE? 

/NO 

/YES-NEW TABLE IS NOW BUILT 



/POINTERS TO THE FIRST WORD IN EACH OF THE FIVE 
/I/O TABLE ENTRIES 



02000 


4514 


SFN, 


JMS 


I INTL 


02001 


3044 


CSFN, 


OCA 


EXP 


02002 


1044 




TAD 


EXP 


02003 


1231 




TAD 


KM4 


02001 


7740 




SMA 


SZA CLA 


02005 


4516 


FN, 


JMS I ERROR 


02006 


1044 




TAD 


EXP 


02007 


3162 




DCA 


ENTNO 


02010 


1044 




TAD 


EXP 


02011 


1234 




TAD 


lOTPTR 


02012 


3007 




OCA 


TEMP2 


02013 


1407 




TAD 


I TEMP2 


02014 


3163 




OCA 


WORD0 


02015 


1107 




TAD 


M14 


02016 


3007 




DCA 


TEMP2 


02017 


1232 




TAD 


WORO0A 


02020 


3011 




DCA 


XRl 


02021 


1233 




TAD 


WORDIA 


02022 


3012 




OCA 


XR2 


02023 


1411 


SFNLP, 


TAD 


1 XRl 


02024 


7001 




lAC 




02025 


3412 




DCA 


I XR2 


02026 


2007 




ISZ 


TEMP2 


02027 


5223 




JMF 


> SFNLP 


02030 


5513 




JMP 


1 ILOOPL 


02031 


7774 


KM4, 


-4 




02032 


0162 


WORDIdA, 


WORO0-1 


02033 


0163 


WORDIA, 


WORDl-1 


02034 


2035 


lOTPTR, 


I0TA8 


02035 


6677 


lOTAB, 


TTYF 




02036 


6714 




FILEl 


02037 


6731 




FILE2 


02040 


6746 




FILE3 


02041 


6763 




F1LE4 



• 



« 



• 



/OS/8 BASIC RUNTIME SYSTEM 



PAL8-V7 10/24/72 PAGE 30 



/FOR-LOOP JUMP ROUTINE 



02042 


7300 


JFORf 


CLA CLI. 




02043 


1045 




TAD HORD 


/GET HIGH MANTISSA 


02044 


7450 




SNA 


/IS FAC»07 


02045 


5653 




JMP I JFAHU 


/YES-DO NOT JUMP 


02046 


1260 




TAD F8NITC 


/ADD FSWITCH 


02047 


7710 




SPA CUA 


/ARE SIGN 8IT»FSWITCH? 


020S0 


5653 




JMP I JFAILL 


/NO-DO NOT JUMP 


02051 


5652 




JMP I SUCJML 


/YES-OO JUMP 


02052 


0421 


SUCJMUf 


SUCJMP 




02053 


0413 


JfAILLf 


JFAIL 








/ROUTINE TO INITIALIZE 


FSWITCH 


02054 


7130 


8ETF, 


CLL CML RAR 


/400e IN AC 


02055 


0045 




AND HORD 


/ISOLATE SIGN OF MANTISSA 


02056 


3260 




OCA FSWITC 


/STORE IN FSWITCH 


02057 


5513 




JMP I ILOOPL 


/DONE 


02060 


0000 


PSWITC, 
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/STRING COMPARE 



02061 


3346 


8C0MP, DCA OCDF 


02062 


3063 


DCA MODESk 


02063 


4537 


JMS I FCLR 


02064 


1032 


TAD STRLEN 


02065 


1071 


TAO 8TRCNT 


02066 


7650 


SNA CLA 


02067 


5513 


JMP 1 lUOOPL 


02070 


7100 


CLl 


02071 


1032 


TAO STRLEN 


02072 


7650 


SNA CUA 


02073 


5326 


JMP SNEO-l 


02074 


1071 


TAD 5TRCNT 


02075 


7650 


SNA CtA 


02076 


5327 


JMP 8NEQ 


02077 


nil 


TAO SACPTR 


02100 


7101 


CLU lAC 


02101 


4527 


JMS I LOHINL 


02102 


4557 


JMS I LOHRST 


02103 


4366 


JMS PTRBMP 


02104 


3042 


OCA SWITCC 


02105 


4343 


LOHC» JMS UDHPST 


02106 


3007 


DCA TEMP2 


02107 


4531 


JMS I LDH 


02110 


7141 


CIA CLL 


02111 


1007 


TAO TEMP2 


02112 


7640 


SZA CLA 


02113 


5327 


JMP SNEQ 


02114 


2071 


ISZ 8TRCNT 


02115 


5332 


JMP SACCHK 


02116 


2032 


SAC40C, ISZ STRLEN 


02117 


7410 


8KP 


02120 


5513 


JMP I ILOOPL 


02121 


4531 


JMS I LOH 


02122 


7100 


CLL 


02123 


1106 


TAD KM40 


02124 


7650 


SNA CLA 


02125 


5316 


JMP 8AC40C 


02126 


7020 


SNEOl, CML 


02127 


7270 


SNEQ. CLA CMA CML fti 


02130 


3045 


OCA HORD 


02131 


5513 


JMP I ILOOPL 


02132 


2032 


SACCHK, ISZ STRLEN 


02133 


5305 


JMP LDHC 


02134 


4343 


STC40C» JMS LDMP8T 


02135 


1106 


TAD KM40 


02136 


7640 


SZA CLA 


02137 


5326 


JMP SNEQl 


02140 


2071 


ISZ STRCNT 


02141 


5334 


JMP STC40C 


02142 


5513 


JMP I ILOOPL 



/OF TO OPERNAO IN LINE 

/RETURN IN AMOOE 

/INITIALIZE FAC TO 

/LENGTH OF STRING IN SAC 

/LENGTH OF OPERAND 

/ARE THEY BOTH ZERO? 

/YES-THEY ARE EOUALjSO RETURN WITH FAC»0 

/NO-LENGTH OF SAC 

/IS IT ZERO? 

/YES-THEN THEY ARE NOT EQUAL 

/LENGTH OF OPERAND 

/IS IT EMPTY 

/YES-THEY ARE NOT EQUAL 

/POINTER INTO SAC 

/INIT LOH 

/TO LOAD FROM SAC 

/ISZ STRPTR OVER COUNT WORD 

/INIT LOHPST 

/HALF LOAD 

/AND SAVE 

/GET CHAR FROM SAC 

/NEGATE IT 

/AND COMPARE TO OPERAND CHARACTER 

/ARE THEY EQUAL? 

/NO-RETURN WITH FAC SIGN SET APPROPRIATELY 

/MORE OPERAND CHARS? 

/YES^SEE IF SAC EMPTY 

/MORE CHARS IN SAC? 

/YES 

/STRINGS ARE EQUAL-RETURN WITH FAC 

/GET CHAR FROM SAC 

/COMPARE TO SPACE 
/IS IT A SPACE? 
/YES-CHECK NEXT CHAR 



/SET SIGN BIT OF MANTISSA TO REFLECT RESULTS OF COMPARE 



f 



/SAC EMPTY? 

/NO«COMPAHE NEXT TWO CHARS 

/YES-GET CHAR FROM OPERAND 

/COMPARE TO SPACE 

/IS IT A SPACE? 

/NO-STRINGS AREN'T EQUAL 

/YES-MORE CHARS? 

/YES-CHECK THEM 

/NO-STRINGS ARE EQUAL-RETURN WITH FACa0 



t 



# 
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/ROUTINE TO GRAB 1 CHAR AT A TIME FROM OPERAND STRING 



02U3 


0000 


LOHPSTf 




tszian 


1042 


TAD SWITCC 


/GET HAUF SWITCH 


02145 


7110 


CLL RAR 


/PUT IN LINK 


02146 


2146 


OCDFi , 


/DF TO OPERAND 


02147 


1472 


TAD I STRPTR 


/GET TWO CHARS FROM STRING 


02150 


6201 


CDF 




02151 


7420 


5NL 


/RIGHT HALF7 


02152 


4544 


JM8 I BSWL 


/NO-SWAP BYTES 


02153 


0075 


AND K00T7 


/ISOLATE RIGHT CHAR 


02154 


3007 


OCA TEMP2 


/SAVE 


02155 


1042 


TAD SWITCC 




02156 


7110 


CLU RAR 


/HALFWORD SITCH TO LINK 


02157 


7430 


SZL 


/RIGHT HALF? 


02160 


4366 


JMS PTRBMP 


/BUMP STRING POINTER 


02161 


7620 


SNL CUA 


/FLIP HALFWORD SWITCH 


02162 


7121 


CtL CML lAC 


/CLEAVE LINKH) 


02163 


3042 


OCA SWITCC 




02164 


1007 


TAD TEMP2 


/GET CHAR AGAIN 


02165 


5743 


JMP I LDHPST 





0042 SWITCCBTEMP3 

/SUBROUTINE TO BUMP STRPTR AND WATCH FOR FIELD OVERLAP 



/NO-SKIPiRETURN 

/SKIP MEANS WE MUST INCREMENT FIELD 



02166 


0000 


PTRBMP, 


02167 


2072 


182 STRPTR 


02170 


5766 


JMP I PTRBMP 


02171 


1346 


TAD OCDF 


02172 


1073 


TAD K0010 


02173 


3346 


OCA OCDF 


02174 


5766 


JMP 1 PTRBMP 



02175 7755 

02176 2061 

02177 5734 



/FLOATING POINT CONSTANT USED BY ASCOUT 

AP0001, 7755 /, 000001 

2061 
5734 
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ases) 



PAGE 



/STRING CONCATENATE 



022(91 
02202 
02203 
02200 
02205 
02206 
02207 
02210 
02211 
02212 
02213 
02214 
0221S 
02216 
02217 
02220 
02221 
02222 
02223 
02224 
02225 
02226 
02227 
02230 
02231 
02232 
02233 
02234 
02235 
02236 
02237 



3637 
1071 
7650 
5513 
1072 
7101 
4527 
1032 
7450 
5216 
7130 
7440 
7041 
7420 
7001 

nil 

4526 
4560 
4531 
4530 
7240 
1032 
3032 
1032 
1236 
7710 
4516 
2071 
5222 
5513 
0110 
2647 



SCONl, 



SACEM, 



SEGCOMi 



SC, 



KU0f 
LDHCOF, 



DCA I LOHCOF 
TAD STRCNT 
SNA CLA 

JMP I ILOOPL 
TAD 8TRPTR 
CLL lAC 
JMS I UDHINL 
TAD STRIEN 
SNA 

JMP SACEM 
CLL CML RAR 
SZA 

CIA 
8NL 

lAC 
TAD SACPTR 
JMS I STMINL 
JMS I STHRST 
JMS I LDM 
JMS I STM 
CLA CMA 
TAD STRLEN 
OCA STRLEN 
TAD STRLEN 
TAD K110 
SPA CLA 

JMS I ERROR 
ISZ STRCNT 

JMP SEGCOM 
JMP I ILOOPL 
U0 
LOMOF 



/OF FOR LDH 
/OPERAND»0? 

/YES-THEN THERE IS NOTHING TO DO 

/AOOR OF OPERAND 

/ADOR OF OPERAND 1ST CHARACTER 

/INITIALIZE LDH TO PULL FROM OPERAND 

/« OF CHARS IN AC 

/SAC EMPTY? 

/YE8-C0NCATE ESSENTIALLY IS A LOAD 

/DIVIDE BY TWO 

/POSITIVE WORD COUNT 



/USE AS DISPLACEMENT OFF START OF SAC 

/INITIALZE STH TO SAC*STRLEN/2 

/SAC IS IN FLO 

/GET CHAR FROM OPERAND 

/PUT CHAR IN SAC 

/-I 

/"BUMP" STRING COUNT FOR SAC 



/IS SAC FULL YET? 

/YES-TRUNCATION ERROR 

/NO-MORE CHARS LEFT IN OPERAND? 

/YES-GO GETTEM 

/NO"OONE 



^> 



02240 
02241 
02242 
02243 
02244 
2245 
1I2246' 
, n 02247 



0000 

7112 

7012 
7012 
3311 

LU 

0075 

1311 

7010 

5640 



/ROUTINE TO SIMULATE HARDWARE BYTE SHAP 



BSWPi 



CLL 


RTR 


RTR 




RTR 




DCA 


TEMP12 


. -TAJL 


TEMP12 


AND 


K0077 


TAD 


TEMP12 


RAR 




JMP 


I BSMP 



/LEFT HALF NOW IN RIGHT HALF 
/SAVE 



/ISOLATE LEFT HALF 

/DO A PARTIAL SHIFT OF BITS 6. 

/MOVE INTO POSITION 



11 LEFT ONE 



• 
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/ROUTINE TO SET EOF BIT IN I/O ENTHV 

02252 1563 E0F8ET, TAO I WORO0 /HEADER 

02253 7112 CLL RTR /EOF BIT TO LINK 

02254 7120 CLL CML /SET LINK 

02255 7006 RTL /PUT LINK IN EOF BIT 

02256 3563 DCA I WORD0 /STORE IM I/O TABLE ENTRY 

02257 5513 JMP I ILOOPL /EOF BIT 8ET-AB0RT TO ILOOP 

/SUBROUTINE MPY- 12 BIT BY 12 BIT MULTIPLY. MULTIPLIES THE CONTENTS 
/OF TEMP3 BY THE CONTENTS OF THE AC, LEAVING THE HI RESULT IN TEMP6 
/AND THE LOW RESULT IN THE AC 




02264lS> 0000 MPY, 
02261^ 30<rtr*' 
0226/r 3050 
0226^^ ll»?r^2- 
0226|r'> 3047 
022*jr5fl042 MP12LP» 
022>«/ 7010 
0226^2^042 

_W4Wl:il050 

B22*r«f 7«20 

ezivtt 7100 
02a«'? i0*+iy 

022>S2W0t0 
022««« 3050 
iZiTTi' 2047 
02S««» 526<^ 
9i*M*t IB AS 

02»«r 70 10 

ZZ*V5t 566«>5 





OCA TEMP10 

DCA TEMP6 

TAO M14 

OCA TEMPS 

TAD TEMP3 

RAR 

OCA TEMP3 

TAD TEMP6 

SNU 

JMP ,*3 

CLL 

TAD TEMP10 

RAR 

OCA TCMP6 

ISZ TEMPS 

JMP MP12LP 

TAD TEMP3 

RAR 

JMP I MPY 




/12 BIT MULTIPLY USED TO FIND (DIM1*1)*S2 




/LORD OF (0IMl*l)*S2 IN AC 
/MDRO OF (DIMl*n*S2 IN TEMP6 
/RETURN 



2260 TEMP13»MPY 

/ROUTINE TO CHECK IF FILE IDLE 



02304 0000 IDLE, 

02305 1567 

02306 7650 

02307 4516 FI, 
02310 5704 





TAO I W0RD4 

SNA CLA 

JMS I ERROR 
JMP I IDLE 



/GET HANDLER ENTRY 

/IS IT EMPTY? 

/YES»USER TRIED TO 00 SOMETHING TO AN UNOPEN FILE 

/NO-RETURN 



/OS/8 BASIC RUNTIME SYSTEM P4I.6-V7 lB/aa/72 PAGE 34 
/ROgTINE TO READ NEXT WORO IN DATALIST INTO AC 



/DATA LIST POINTER 

/SET UP 12 BIT COMPARE 

/AODR OF END OF DATA UIST 

/POINTER AT END OF LIST? 

/YES 

/NO-DF TO DATA LIST 

/FETCH WORD FROM DATA LIST 

/DONE 



/SET SWITCH TO SMODE 







TEMP12* 




02311 


0000 


DLREADr 





02312 


1016 




TAD DLPTR 


02313 


3015 




OCA BABS 


02314 


1027 




TAD DLSTOP 


02315 


4405 




JMS I NUMCOM 


02316 


4S16 


o*» 


JMS I ERROR 


02317 


2317 


DLCDF, 


• 


02320 


1416 




TAO I DLPTR 


02321 


6201 




CDF 


02322 


5711 




JMP I DLREAO 






/ROUTINES TO SWITCH 


02323 


7001 


SSMOUE, 


lAC 


02324 


3063 


AMODE, 


OCA MODESW 


02325 


5513 




JMP I ILOOPL 



/SET SWITCH 
/DONE 



TO A MODE 



/SUBROUTINE PUSH6 

/ROUTINE TO PUSH AC ON TOP OF GOSUB STACK 



02326 


0000 PUS 


Mb, 


02327 


3040 


OCA TEMPI 


02330 


2067 


ISZ GSP 


02331 


1067 


TAD GSP 


02332 


7041 


CIA 


02333 


1341 


TAD KSTCKT 


02334 


7710 


SPA CLA 


02335 


4S16 6S, 


JMS I ERROR 


02336 


1040 


TAO TEMPI 


02337 


3467 


OCA I GSP 


02340 


5726 


JMP I PUSHG 



02341 0476 6STCKT> 6SSTQP 



/SAVE ELEMENT TO BE PUSHED 

/BUMP GOSUB STACK POINTER 

/GET STACK POINTER 

/NEGATE 

/ADD ADR OF TOP OF STACK 

/STACK OVERFLOW? 

/VES-TOO MANY NESTED GOSUBS 

/NO-GET ELEMENT TO BE STACKED 

/STACK IT 

/RETURN 

/ADOR OF TOP OF STACK 



/08/8 BASIC RUNTIME SYSTEM 



# 
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/ROUTINE TO RANDOMIZE RND{X) 



02342 


1017 


FRANOM, 


TAD SPINNR 


02343 


7124 




CLL CML RAL 


02344 


3346 




OCA RSEED 


02345 


5513 




JMP I ILOOPL 


02346 


2713 


RSEED, 


2713 






/SUBROUTINE Cn,l¥ 


02347 


0000 


CRLFH* 





02350 


1054 




TAD K215 


02351 


4512 




JMS I PUTCHL 


02352 


1356 




TAD K212U 


02353 


4512 




JMS I PUTCHL 


02354 


3573 




OCA I WORD10 


02355 


5747 




JMP I CRLFR 


02356 


0212 


K2121.I 


212 



/USE SPINNR FOR NEW SEtO FOR RND(X) 
/MAKE SURE SEED IS ODD 

/DONE 



/PRINT A CR,AND LF 
/ZERO COLUMN POINTER 



/SUBROUTINE FOTYPE 

/RETURNS TO CALL*1 IF FILE FIXED LENGTH, CALL*2 IF VARIABLE 



02357 


0000 


FOTYPE, 




02360 


1563 


■ TAD I WOROe 


/GET HEADER 


02361 


0365 


AND K0004 


/ISOLATE TYPE BIT 


02362 


7640 


SZA CLA 


/IS IT FIXED LENGTH? 


02363 


2357 


ISZ FOTYPE 


/NO-BUMP RETURN 


02364 


5757 


JMP I FOTYPE 


/RETURN 


02365 


0004 


K0004, 4 








/SUBROUTINE TO REPLACE 


FAC WITH ABS(FAC) 


02366 


0000 


AB8VAL, 




02367 


1045 


TAD HORD 




02370 


7710 


SPA CLA 


/IS FAC«0? 


02371 


4540 


JMS I FNEGL 


/YES-NEGATE IT 


02372 


5766 


JMP I A88VAL 


/RETURN 



/ROUTINE TO RESTORE THE FAC FROM FP TEMP 



02373 


0000 


FACRESi 




02374 


4534 


JMS I FGETL 


/GET FAC 


02375 


1152 


INTERB 




02376 


5773 


JMP I FACRES 


/RETURN 
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2400 



PAGE 



02400 


4616 


02401 


3032 


02402 


1032 


02403 


74S0 


02404 


5513 


02405 


7130 


02406 


3071 


02407 


nil 


02410 


3012 


02411 


4616 


02412 


3412 


02413 


2071 


02414 


S211 


02415 


5513 



/STRING DATA WIST READ 

SRLISTf JMS I DLREAL 
DCA 8TRLEN 
TAD STRLEN 

SNA 

jMP I aoopu 

CUU CML RAR 
DCA 8TRCNT 
TAD SACPTR 
DCA XR2 
SRLO0P> JMS I DLREAL 
DCA I yR2 
ISZ STRCNT 

JMP SRLOOP 
JMP I ILOOPL 



/READ COUNT FROM DATA LIST 

/SAVE AS NEW COUNT FOR FAC 

/COUNT FOR SAC STRING 

/NULL STRING? 

/YES-NO OPERATION TO PERFORM 

/AND DIVIDE BY TWO FOR WORD COUNT 

/SAVE AS MOVE COUNTER 

/POINTS INTO SAC 

/REAO 2 CHARS FROM DATA LIST 

/AND PUT THEM IN SAC 

/BUMP STRING COUNT 

/NEXT 2 

/DONE 



02416 2311 DLREALi DLREAD 



# 



# 
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/STRING READ ROUTINE 

02417 3657 8REA0, OCA I 8THC0U /OF FOR 5TH 

02420 3071 OCA STRCNT /0 STRING COUNT 

02421 7101 CLL I*C /LEAVE FIELD AS IS 

02422 1072 TAD 8TRPTR /ADDR OF OPERAND 

02423 4528 JMS I STHINL /INIT STORE HALF TO STORE IN OPERAND 

02424 4942 FTCOM, JMS I GETCHL /GET CHAR FROM FILE OR TTV 

02425 1053 TAD CHAR 

02426 1055 TAD M215 /IS IT CR7 

02427 7450 SNA 

02430 5247 JMP SRFIN /YES-STRING IS FINISHED 

02431 1256 TAO MLF /IS IT LF7 

02432 7650 SNA CLA 

02433 5224 JMP FTCOM /YES-IGNORE IT 

02434 1071 TAD STRCNT /NO-GET LENGTH OF STRING SO FAR 

02435 1070 TAO STRMAX /COMPARE AGAINST UPPER LIMIT OF DESTINATION 

02436 7700 SMA CLA /ANY MORE ROOM? 

02437 5244 JMP ST /NO-TRUNATION ERROR 

02440 1053 TAO CHAR /YES 

02441 4530 JMS I STH /STORE CHAR IN STRING 

02442 2071 ISZ STRCNT /BUMP COUNT 

02443 . 5224 JMP FTCOM /GET NEXT CHAR 



02444 
02445 
02446 

02447 

02450 

02451 

02452 

02453' 

02454 

02455 



4516 
1054 
3053 



ST, 



'4tlN, 



3251 

2451 
1071 
7041 
3472 
5513 



JMS I ERROR 
TAD K21S 
DCA CHAR 

TAD ^ ST M CPL 
DCA .♦I 

TAO STRCNT 

CIA 

DCA I 8TRPTR 

JMP I ILOOPL 



/YES-TRUNCATION ERROR 

/SET CHAR TO 215 

/SO TTY BUFFER CLEARED BEFORE NEXT INPUT 

/GET OF OF STRING 

/PUT IN LINE 

/OF TO THAT OF STRING 

/STRING DONE-GET LENGTH 

/NEGATE 

/STORE A3 COUNT FOR STRING 

/DONE 



02456 0003 MLF> 3 

02457 2603 STHCOLf 8TH0F 
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/STRING WRITE ROUTINE 



e 



02460 
02461 
02462 
02463 
02464 
02465 
02466 
02467 
02470 
02471 
02472 
02473 
02474 
02475 
02476 
02477 
02500 
02501 
02502 
02503 
02504 
02505 
02506 
02507 
02510 
02511 
02512 



3357 
1032 
7450 
5513 
7041 
1573 
1313 
7740 
4553 

nil 

7101 
4527 
4557 
1032 
3071 
4531 
3040 
1040 
1106 
7710 
1076 
1077 
1040 
4S12 
2071 
5277 
5513 



8WRITE, OCA 
TAD 
SNA 

JMP 
CIA 
TAD 
TAD 
SMA 

JMS 
TAD 
CU 
JMS 
JMS 
TAD 
DCA 
JMS 
DCA 
TAD 
TAD 
SPA 

TAD 
TAD 
TAD 
JMS 
ISZ 

JMP 
JMP 



SWCLPi 



COMMAS 
STRLEN 

I IIOOPU 

I MORD10 
MM110 
SZA CLA 
I CRLF 
8ACPTR 
lAC 

I LDMINL. 
I LDMR8T 
STRLEN 
STRCNT 
I UOH 
TEMPI 
TEMPI 
KM40 
CLA 

K0i00 

K0200 
TEMPI 
I PUTCHL 
STRCNT 
SWCLP 
I ILOOPL 



/CLEAR COMMA SWITCH 
/* OF CHARS IN STRING 
/NULL STRING? 
/YES"N0TMING TO WRITE 
/MAKE A POSITIVE NUMBER 
/ADD TO COLUMN NUMBER 
/COMPARE AGAINST END OF LINE 
/WILL STRING FIT ON LINE? 
/NO-ISSUE A CRLF FIRST 

/AC POINTS TO LEFT SAC CHAR 1 

/INITIALIZE LOAD HALF ROUTINE 

/LOAD FROM SAC IN FLO 

/# OF CHARS 

/USE AS COUNTER 

/LOAD HALF CHAR FROM STRING 

/SAVE 

/SUBTRACT 40 
/IS CHAR <40? 
/NO-MAKE IT 300 SERIES 
/MAKE IT 200 SERIES 

/PUT CHAR IN FILE OR ON TTY 

/DONE? 

/NO>NEXT CHAR 

/YES 



02513 7670 MMli0, -110 



70^ 



# 




/08/8 BASIC RUNTIME SYSTEM 



PALe-V7 10/24/72 PAGE 3<J 



/FLOATING POINT CONSTANT USED BY ASCOUT FOH FORMAT CONVewSION 

02514 0024 A999i 24 /999999 

02515 3641 3641 

02516 0770 0770 

/COMMA FUNCTION (KNOWN ONLY TO COMPILER FOR FORMATTING PRINT 
/STATEMENTS) 



02517 


0000 


COMMA, 





02520 


4550 




JMS 1 FTYPL 


02521 


5513 




JMP I ILOOPL 


02S22 


1357 




TAO COMMAS 


02523 


7650 




SNA CLA 


02524 


5327 




JMP ,+3 


02525 


1365 




TAD C240 


02526 


4512 




JMS I PUTCHL 


02527 


7001 




lAC 


02530 


3357 




OCA COMMAS 


02531 


1366 




TAO M4 


02532 


3007 




OCA TEMP2 


02533 


1360 




TAD POSPTA 


02534 


3014 




DCA XR4 


02535 


1573 


COMLOP» 


TAD I WORD10 


02536 


1414 




TAO I )(R4 


02537 


7510 




SPA 


02540 


5347 




JMP SLOVER 


02541 


7650 




SNA CLA 


02542 


5513 




JMP I ILOOPL 


02543 


2007 




ISZ TEMP2 


02544 


S33S 




JMP COMLOP 


02545 


4553 




JMS I CRLF 


02546 


5513 




JMP I ILOOPL 


02547 


3777' 


SLOVER* 


DCA TEMP19 


02550 


4550 




JMS I FTYPL 


02551 


S513 




JMP I ILOOPL 


02SS2 


1365 




TAD C240 


02553 


4512 




JMS I PUTCML 


02554 


2777' 




ISZ TEMP19 


02555 


5350 




JMP SLOVERtl 


02556 


5513 




JMP I ILOOPL 




3371 


TEMP19* 


FACSAV 


02557 


0001 


COMMAS* 


1 


02560 


2560 


POSPTA, 


P08TP-1 


02561 


7762 


POSTP, 


-16 


02562 


7744 




-34 


02563 


7726 




-52 


02564 


7710 




-70 


02565 


0240 


C240f 


240 


02566 


7774 


M4, 


• 4 



/IS FILE NUMERIC? 

/YES-COMMA FUNCTION IS A NOP 

/GET COMMA SWITCH 

/WAS LAST THING PRINTED A COMMA? 

/NO-WE ARE OK 

/YES-PRINT A SPACE BEFORE DOING COMMA CALCULATION 



/SET COMMA SWITCH 

/ONLY 4 COLUMNS TO CHECK 

/POINTS TO POSITION #'S OF COLUMNS 

/GET CURRENT PRINT HEAD POSITION 

/COMPARE AGAINST COLUMN MARKER 

/PAST THIS ONE? 

/YES-SLIOE PRINT HEAD TO START OF NEXT 

/EXACTLY ON A COLUMN? 

/YES-OONE 

/ALL MARKERS CHECKED YET? 

/NO-DO NEXT 

/YES-NEXT COLUMN IS 

/DONE 

/-» OF COLUMNS TO NEXT MARKER 

/IS FILE NUMERIC? 

/YES-THIS IS A NOP 

/GET SPACE 

/PRINT IT 

/THERE YET? 

/NO-TYPE ANOTHER SPACE 

/YES-DONE 



/SET TO I IF LAST PRINT WAS A COMMA MOVE 

/COLUMN MARKERS 

/MINUS TTY COLUMN NUMBER THAT MARKS BEGINNING 

/OF ONE OF THE BASIC COLUMNS 



/RESTORE FOR IN-CORE DATA LIST 



/OS/8 BASIC RUNTIME SYSTEM 

02567 1030 RESDLSr TAD DLSTBT 

02570 3016 OCA OLPTH 

02571 5513 JMP I ILOOPL 



PAL8-V7 10/24/72 PAGE 39-1 

/ADDRESS OF START OF iNCORt DATA LIST 
/USE IT TO RESET DATA LIST POINTER 
/TMATS ALLl 



/RESTORE ROUTINE 



02572 


1162 


02573 


7650 


02574 


5367 


0257S 


4777 


02S76 


5513 


PE 




02S77 


1650 



RESTOH» 



TAD ENTNO 
SNA CLA 

JMP RE80LS 
JMS I RESTIL 
JMP I ILOOPL 



RE8TIL» RESTI 



/GET CURRENT FILE # 
/IS IT 07 

/VES.RESTORE DATA LIST 
/NO-RESTORE A FILE 

/DONE 



/OS/8 BASIC SUNTIME SYSTEM 
2b00 PAGE 



PALfl-vT 10/ea/72 PAGE 4a 



^^ 



/SUBHOUTINE STH-SIMULATES AN AUTO-INOEX ING STOKE HALF INSTKUCTION. 
/STOKES THE RIGHT HAUF OF THE AC IN THE HALFwOHD FOLLOWING THE 
/LAST HALPWORO STORED. TO CHANGE THE STORAGE ADDRESS»CALL STHINT 



(. 



COM( 




02620 0800 STHL> 

08601 , 0075 _^^ 
0260a^Jfc3*W- ?)»*^ 

02603 2603 STHDF, 

02604 1244 

02605 7640 
02606- 5233 . , 
i2607V--«W« r^^ -^ 
§2610 4544 ^^ 

026iufr--»««r-**^«* 

02612 1645 

1 02613 0075 

0261tah4«** 

02615 3645 

1244 

7650 

5227 

2245 

5230 

1203 

1073 

3203 

7410 

7040 JSLi 

3244 

6201 

5600 



02616 
02617 
02620 
02621 

02622 
02623 
02624 
02625 
02626 
02627 
02630 
^ 026 31 
l4'2632 



02633 1645 

02634 0104 

02635 5214 





AND K0077 /STRIP TO b BITS 

OCA T CMPH /SAVE 

, /UF TO STORE FIELD 

T40 STHShT /GET SixITCH FOR HALF TO STQi^E IN 

SZA CLA /WHICH HALF? 

JMP RIGHTS /STORE IN RIGHT HALF 

TAD f€+rPrr /STORE IN LEFT HALF 

JMS I BSWL /SWAP BYTES 

OCA MH P ll /SAVE AGAIN 

T«D I SThR - /GET CURRENT VALUES 

AND K0077 /PRESERVE RIGHT HALF 

TAO 4 ^M P 11 /COMBINE WITH NEW LEFT HALF 

DC'A I STHR /AND STORE IT 

TAQ SThSWT /GET HALF SWITCH 

SNA CLA /WAS THIS RIGHT HALF? 

JMP JSL -Ue^T/NO-JUST FLIP SWITCH 
ISZ STHR Alft^ /BUMP POINTER 

♦ 1 ' / 




-4 



JMP JSL 

TAD STHDF 

TAD K0010 

DCA STHDF 

5RP 

CMA 

DCA STHSWT 

CDF 

JMP I STHL 



'POINTER IS 
/SKIP MEANS 



BUMPEO-SET 
WE HAVE TO 



HALFSWITCH TO LEFT 
8UMP STH CDF 



/SET HALF SWITCH TO 
/FLIP HALF SWITCH 



/DONE 



RIGHTS, TAD I STHR 
AND K7700 
JMP SLRCOM 



/GET LEFT HALF 

/CLEAR ANY GARBAGE THAT MIGHT BE IN RIGHT HALF 

/FLIP SWITCH AND RETURN 



/SUNROUTINE STHINI-USEU TO SET THE HALFWORD ADDRESS STORED INTO BY STH. 
/ON CALL, WORD AOOR IS IN AC, LINK SET TO FOR LEFT HALF.l FOR RIGHT HALF. 



02636 


0000 


STHINI, 





02637 


3245 




OCA STHR 


02640 


7630 




SZL CLA 


02641 


7040 




CMA 


02642 


3244 




OCA STHSWT 


02643 


5636 




JMP I STHINI 


02644 


0000 


STHSWT, 





02645 


0000 


STHR, 






/STORE ADDRESS 
/WHICH HALF TO START 
/RIGHT-SET STHSWT 
/LEFT-CLEAR STHSwT 
/DONE 

/STORE HALFWORD SWITCH 
/HALFWORD POINTER FOR STH 



/OS/e BASIC RUNTIME SYSTEM 
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/SUBKOUTINE LDM-SIMULATES AN AUTO-INDEXING LOAD HALF INSTRUCTION, wHfcN 
/CALLED, IT LOADS THE NEXT HALFWORD INTO AC, TO CHANGE ADDRESS FROM 
/WHICH IT LOADS, CALL LOHINI. OF MUST BE SET TO OF OF SOURCE ON CALL. 






aZhUb 
02647 
02650 
026S1 
02652 
02653 
02654 
02655 
02656 
02657 
02660 
02661 
02662 
02663 
02664 

02665 
02666 
02667 
02670 
02671 
,._,0267a 
^7*73 
02674 
02675 



0000 
2647 
1304 
7640 
5265 
1705 
4544 
0075 
3062 
1304 
7040 
3304 
1062 
6201 
5646 

1705 
2305 
3255 

3236 

1247 
1073 
3247 
1236 
5255 



LDHLf 
LOHOF, 







TAD LOHSWT 
SZA CLA 

JMP RIGHTL 
TAD I UOHR 
JMS I BSWL 
LRSCOM, AND K0077 
DCA TEMPI 1 
TAD LOHSWT 
CMA 

OCA LOHSWT 
TAO TEMPI 1 
CDF 
JMP I LDHL 



RIGHTLi 



TAO I LOHR 
ISZ LOHR 

JMP LRSCOM 
DCA TEMP21 
TAD LDHDF 
TAD K0010 
OCA LDHDF 
TAD TEMP21 
JMP LRSCOM 



/OF FROM WHICH TO GET WORDS 
/WHICH HALF TO LOAD? 

/RIGHT HALF 

/LEFT HALF-GET BOTH 

/SWAP BYTES 

/ISOLATE CHAR 

/SAVE 

/FLIP LOHSWT 



/RETURN 

/GET WORD 

/BUMP POINTER TO NEXT WORD 

/NO SKIP SO JUST CONTINUE 

/SKIP MEANS WE HAVE TO BUMP LDH OF 



/GET WORD AGAIN 

/FLIP SWITCH AND RETURN 



/SUBROUTINE LDH;NI-USED TO SET HALFWORD ADDRESS LDH DRAWS FROM. ON CALL, 
/AC»FUUL WORD ADDRESS, AND LINK«0 FQR LEFT HALF, I FOR RIGHT. 



/SAVE LDH POINTER 
/WHICH HALF? 
/RIGHT-LDHSWT»7r7T 
/LEFT-LDHSWT«0 



02676 


0000 


LDHINI, 





02677 


3305 




DCA LOHR 


02700 


7630 




SZL CLA 


02701 


7040 




CMA 


02702 


3304 




OCA LOHSWT 


02703 


5676 




JMP I LDHINI 


02704 


0000 


UDHSWT, 





02705 


0000 


LOHR, 






/LOAD HALFWORD SWITCH 
/HALFWORD PO INTER. EOS- tJW*—- 



2636 TEMP2lsS.IJii*ti 



/OS/8 BASIC RUNTIME SVSTEM 
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/SU8K0UTINE BUFCHK-ChECKS THE POSITION OF THE BUFFtH POINTED FOP 

/THE DEVICE WHOSE I/O TABLE ENTRY IS IN WORKING AREA, RETURNS TO CALL*1 

/IF THE POINTER IS AT THE END AND CHAR NUMBER IS 1 (LAST 

/AVAILABLE CHAR 3 HAS BEEN USeD),CALL+a IF THE POINTER IS AT THE 

/END BUT THE CHAR • IS NOT 1 (THERE IS I CHAR 3 LEFT), CALL+3 

/IF THERE IS 1 WORD LEFT IN BUFFER , CALL*4 IF MORE THAN 1 LEFT. 



/BET DEVICE « 

/IS IT TTY? 

/YES-CHECK FOR A BUFFER 60 WORDS LONG 

/NO-CHECK FOR A BUFFER 400 WORDS LONG 

/ADD LENGTH TO BUFFER ADDRESS 

/-ADDR OF END OF BUFFER 

/CHECK AGAINST CURRENT POINTER 

/IS POINTER AT END OF BUFFER? 

/AT END-CHECK THE CHAR # 

/NO-BUMP RETURN 



02706 


0000 


BUFCHK, 


02707 


1162 


TAD ENTNO 


02710 


7650 


SNA CLA 


02711 


1327 


TAD MK61 


02712 


1102 


TAD K0400 


02713 


156a 


TAD I WORDl 


027ltt 


7041 


CIA 


02715 


1566 


TAD I W0R03 


02716 


7450 


SNA 


02717 


5330 


JMP EBC 


02720 


2306 


ISZ BUFCHK 


02T21 


2306 


ISZ BUFCHK 


02722 


7001 


lAC 


02723 


7650 


SNA CLA 


02724 


5706 


JMP I BUFCHK 


02T25 


2306 


ISZ BUFCHK 


02726 


5706 


JMP I BUFCHK 


02727 


7461 


mbi, 7461 


02730 


4551 


EBC, JMS I CHHNOL 


02731 


5706 


JMP I BUFCHK 


02732 


7000 


NOP 


02733 


2306 


ISZ BUFCHK 


02734 


5706 


JMP I BUFCHK 



/WAS POINTER AT LAST WORD? 

/YES-RETURN TO CALL*3 

/NO 

/RETURN TO CALL+4 



/GET CHAR # 

/IT WAS l-RETURN TO CALL*1 

/IT WAS 3-RETURN TO CALL+2 

/IT WAS 2-RETURN TO CALL+2 



/OS/8 BASIC RUNTIME SYSTEM 
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/SUBROUTINE PACKCH-PACKS ASCII CHARS, 3 FOR 2, INTO BUFFER FOR THE 
/DEVXCfc IN KORK AREA, CALL WITH THE CHARACIER IN THE AC 



/SAVE 

/DETERMINE CHARACTER NUMBER 

/I 

/3 

/I OR 2-GET CHAR AGAIN 

/STORE IN BUFFER 

/BUMP CHARACTER NUMBER 

/DONE 



/BACK BUFFER POINTER UP TO POINT TO CHAR 1 

/CHAR 

/SLIDE LEFT HALF INTO BITS 0-3 
/SAVE 

/ISOLATE LEFT HALF, COMBINE WITH CHARI,aND PUT IN FILE 
/CHAR AGAIN 

/SLlOt RIGHT HALF INTO BITS 0-3 

/ISOLATE RIGHT HALF, COMBINE WITH CHAR 2, AND PUT IN FILE 

/CLEAR THE CHARACTER NUMBER (RESET IT TO 1) 

/DONE 



/ISOLATE HALF IN QUESTION 

/SAVE 

/GET A WORD FROM FILE BUFFER IN FIELD I 

/FLUSH ANY SLUSH IN BITS 0-3 

/COMBINE 

/PUT IN BUFFER 

/RETURN 



02735 


0000 


PACKLH, 




02736 


3040 


OCA 


TEMPI 


02737 


4551 


JM8 


1 CHRNOL 


027«0 


7410 


SKP 


02741 


5346 


JMP CHAR3P 


027tt2 


1040 


TAO 


TEMPI 


02743 


4525 


JMS 


I WRITFW 


02744 


4765 


JMS 


I CNOBMK 


02745 


5735 


JMP 


I PACKCH 


02746 


7344 


CHARiP, CLA 


CLL CMA 


02747 


1566 


TAD 


I M0RD3 


02750 


3566 


OCA 


I W0R03 


02751 


1040 


TAD 


TEMPI 


02752 


7106 


CLL 


RTL 


02753 


7006 


RTL 




02754 


3040 


DCA 


TEMPI 


02755 


1040 


TAO 


TEMPI 


02756 


4366 


JMS 


COMBNE 


02757 


1040 


TAD 


TEMPI 


02760 


7106 


CLL 


RTL 


02761 


7006 


RTL 




02762 


4366 


JMS 


COMBNE 


02763 


4546 


JMS 


I CNOCLL 


02764 


5735 


JMP 


I PACKCH 



02765 5573 CNOBMK, CNOBML 

02766 0000 COMBNE, 



02767 


0103 


AND 


K7400 


02770 


3007 


DCA 


TEMP2 


02771 


4776 


JMS 


I BC6ETL 


02772 


0101 


AND 


K0377 


02773 


1007 


TAD 


TEMP2 


02774 


4525 


JMS 


I WRITFW 


02775 


5766 


JMP 


I COMBNE 



02776 3035 BCGETLf 8CGET 



/OS/8 BASIC RUNTIME SYSTEM 
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3000 



PAGE 



/ROUTINE TO READ WORD FROM FILE BUFFER AND BUMP POINTER 



/IS FIlE VARIABLE LENGTH 

/YES-IT IS AN ERROR TO TRY ANO R£AD IT 

/CHECK IF MORE THERE 

/EOF BIT TO LINK 

/EOF? 

/NO-CONTINUE 

/YES-ATTEMPT TO READ BEYOND EOF 

/NOT FATAL-RETURN TO I LOOP 

/GET WORD FROM FILE BUFFER 

/BUMP POINTER 

/DONE 



03000 


0000 


REAOFLi 





03001 


4bl5 




JMS I FTYL 


03002 


7410 




SKP 


03003 


4516 


VR, 


JMS I ERROR 


03004 


1563 




TAO I WORD0 


03005 


7112 




CLL RTR 


03006 


7620 




SNL CLA 


03007 


5212 




JMP .«3 


03010 


4516 


RE, 


JMS I ERROR 


03011 


5513 




JMP 1 ILOOPL 


03012 


4235 




JMS BCGET 


03013 


2566 




ISZ I W0R03 


03014 


5600 




JMP I READFL 


03015 


2357 


FTYLi 


FOTYPE 






/ROUTINE TO RESET CH/ 


0301b 


0000 


CNOCLR, 





03017 


1563 




TAD I WORO0 


03020 


0105 




AND K7477 


03021 


3563 




OCA I WORO0 


03922 


5616 




JMP I CNOCLR 






/ROUTINE TO WRITE AC 


03023 


0000 


WRtTFLi 





03024 


4634 




JMS 1 BCPUTL 


03025 


2566 




ISZ I W0R03 


0302b 


1563 




TAD I WORO0 


03027 


7112 




CLL RTR 


03030 


7620 




SNL CLA 


03031 


5623 




JMP I WRITFL 


03032 


4516 


WE, 


JMS I ERROR 


03033 


5513 




JMP I ILOOPL 



/SET CHAR BITS TO 
/RETURN 



/STORE AC IN FILE BUFFER 

/BUMP POINTER 

/GET FILE HEADER WORD 

/EOF BIT TO LINK 

/WAS FILE PAST END? 

/NO-RETURN 

/YES-ATTEMPT TO WRITE PAST END OF FILE 

/NON-FATAL RETURN TO ILOOP 



03034 0747 BCPUTL, BCPUT 



/ROUTINE TO GET ONE WORD FROM FILE BUFFER IN FIELD 1 



03035 


0000 


03036 


4523 


03037 


1566 


03040 


3223 


03041 


1162 


03042 


7640 


03043 


6211 


03044 


1623 


03045 


6201 


03046 


5635 



BCGET, 





JMS 

TAD 

DCA 

TAD 

SZA 

COF 

TAO 

CDF 

JMP 



I FIDLE /CHECK IF FILE OPEN 

I W0RD3 /GET READ WRITE POINTER 

TEMPI? /SAVE 

ENTNO /GET FILE # 

CL* /IF TTY, BUFFER FIELD IS 

10 /DF TO BUFFER FIELD 

I TEMPI? /GET WORD FROM BUFFER 

1 BCGET /RETURN 



/OS/8 BASIC RUNTIME SYSTEM 
3033 TEMP17»W»ITFL 
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# 
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PACa-VT l0/2a/72 PAGE 45 



/SUBKOUTINE UNPACK-UMPACKS ASCII, 3 F0« 2 ,FROM THE FILE IN THE I/O 
/WORKING AREA, RETURNS WITH THE CHAR IN CHAR, 



03047 0000 UNPACKi 

03050 4551 JMS I CMRNOL 

03051 7410 SKP 

03052 5264 JMP CHAR3U 

03053 4704 JMS I CNOBMP 

03054 4747 JMS I READFW 

03055 0101 AND K0377 
0305(> 3053 U123C, OCA CHAR 
03057 1053 TAO CHAR 

03060 1303 TAO MCTRLZ 

03061 7650 SNA CLA 

03062 5543 JMP I EOFSEU 

03063 5647 JMP I UNPACK 

03064 4216 CHARiU> JMS CNOCLR 

03065 7344 CLA CUL CMA RAL 

03066 1566 TAO I W0R03 

03067 3566 DCA I W0RD3 

03070 4747 JMS I REAOFW 

03071 0103 AND K7400 

03072 3216 DCA TEMP18 

03073 4747 JMS I READFW 

03074 0103 AND K7400 

03075 7112 CLL RTR 

03076 7012 RTR 

03077 1216 TAO TEMP18 

03100 7112 CLL RTR 

03101 7012 RTR 

03102 5256 JMP U123C 

03103 7546 MCTRLZi «232 

03104 5573 CNOBMP, CNQBMU 

3016 TEMPie»CNOCLR 



/GET CHAR « 

/I 

/3 

/BUMP CHAR NUMBER 

/GET CHAR AGAIN 

/STRIP TO EIGHT BITS 

/SAVE 

/GET CHAR A6IAN 

/IS IT CTRL/Z? 

/YES-SET EOF BIT 
/RETURN 

/RESET CHAR # TO 1 
/-2 IN AC 

/BACK BUFFER POINTER UP 2 
/GET LEFT HALF OF CHAR 

/SAVE 

/GET NEXT WORD WITH RIGHT HALF 
/ISOLATE RIGHT HALF 

/SLIDE RIGHT HALF OVER 
/COMBINE WITH LEFT HALF 

/MOVE TO BITS 4-11 
/REJOIN MAINLINE 



/OS/8 BASIC RUNTIME SVSTEM 
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/REAU FUNCTION-GETS NUMBERS INTO VARIABLES 



03U5 


4550 


REAOI, 


JMS I FTVPL 


03t0i> 


7410 




SKP 


03107 


5323 




JMP ASCHR 


03110 


4547 




JMS I BUFCHL 


03111 


7000 




NOP 


03113 


7000 




NOP 


03113 


4552 




JMS I NEXREL 


03114 


4747 




JMS I READFW 


03115 


3044 




OCA EXP 


03116 


4747 




JMS I READFW 


03117 


3045 




OCA HOKO 


03120 


4747 




JMS I READFW 


03121 


3046 




OCA LORD 


03122 


5513 




JMP I ILOOPL 


03123 


4725 


ASCHN, 


JMS I FFINl 


03124 


5513 




JMP I ILOOPL 


0312S 


5200 


FFINL, 


FFIN 






/ROUTINE TO FETCH ASCII 


03126 


0000 


GETCH, 





03127 


4550 




JMS I FTYPL 


03130 


4S16 


SR, 


JMS I ERROR 


03131 


1053 




TAD CHAR 


03132 


1055 




TAD M215 


03133 


7650 




SNA CLA 


03134 


5343 




JMP TTEST 


03135 


4547 


NTTY, 


JMS I BUFCHL 


03136 


4552 




JMS I NEXREL 


03137 


7000 




NOP 


03140 


7000 




NOP 


03141 


4247 




JMS UNPACK 


03142 


5726 




JMP 1 GETCH 


03143 


1162 


TTEST, 


TAD fcNTNO 


03144 


7650 




SNA CLA 


03145 


4524 




JMS I DEVCAL 


03146 


5335 




JMP NTTY 



/IS FILE NUMERIC? 

/VES-WRITE DATA 

/NO-WRITE ASCII 

/YES-CHECK BUFFER POINTER 

/PAST END-NEXT RECORD 

/AT END-NEXT RECORD 

/ONLY 1 WORD LEFT-IT IS UNUSED IN NUMERIC FMT 

/GET WORD FROM FILE 

/STOKE AS EXPONENT 

/GET WORD FROM FILE 

/STORE AS HIGH MANTISSA 

/GET WORD FROM FILE 

/STORE AS LOW MANTISSA 

/DONE 

/USE FPP INPUT TO GET NUMBER 
/DONE 



CHARACTERS FROM FILE BUFFER 

/IS FILE ASCII? 
/NO-ERROR 
/GET LAST CHAR 
/WAS IT CR? 

/YE5-IF TTY,WE MUST REFILL BUFFER 
/NO-CHECK STATUS OF BUFFER 
/LAST CHAR READ-NEXT RECORD 
/CHAR 3 NOT USED YET 
/CHAR 2 AND 3 LEFT 
/UNPACK CHAR FROM BUFFER 
/RETURN 

/ENTRY NUMBER 
/IS IT TTV? 
/VES-FILL TTV BUFFER 
/RESUME 



03147 3000 REAOFW* READFL 



t 



# 



/OS/8 BASIC RUNTIME SYSTEM 
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/STRlNIi ACCUMULATOR UOAD 



03150 


3365 


SLOAOi DCA LOAOOP 


03151 


nil 


TAD SACPTR 


03152 


3012 


DCA XR2 


03153 


1071 


TAD STHCNT 


03154 


3032 


DCA 8TRLEN 


03155 


1032 


TAD STRLEN 


03156 


7650 


SNA CLA 


03157 


5513 


JMP I ROOPL 


03160 


2072 


S8LP» ISZ 8TRPTR 


03161 


5365 


JMP lOAOOF 


03162 


1365 


TAD LOADOF 


03163 


1073 


TAD K0010 


03164 


3365 


OCA LOADOF 


03165 


3165 


LOADUFf . 


03166 


1472 


TAD I 8TRPTR 


03167 


6201 


CDF 


03170 


3412 


DCA I XR2 


03171 


2071 


ISZ STRCNT 


03172 


7410 


SKP 


03173 


5513 


JMP I ILOOPL 


03174 


2071 


ISZ STRCNT 


03175 


S360 


JMP SSLP 


03176 


5513 


JMP I ILOOPL 



/PUT OF FOR OPERAND FIELD IN LINE 

/POINTER TO START OF SAC 

/POINTS INTO SAC 

/GET LENGTH OF THIS STRING 

/SET THAT LENGTH AS LENGTH OF STRING IN SAC 

/GET LENGTH OF NEW STRING 

/IS IT A NULL STRING? 

/YES-WE DON'T HAVE TO MOVE ANYTHINCi 

/POINT TO FIRST PAIR OF CHARACTERS 

/SKIP MEANS WE HAVE TO BUMP OF 



/DF TO OPERAND FIELD 

/GET 2 CHARS FROM STRING 

/DF TO SAC FIELD 

/PUT IN SAC 

/DONE? 

/NO-TWO CHARS/WORD 

/YES-NEXT INST 

/DOES SECOND CHAR MAKE COUNT 0? 

/NO-LOOP 

/YES-NEXT INST 
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3200 



PAGE 



/WRITE FUNCTION-PUTS NUMBERS IN FILE BUFFE«S 



03200 


4550 


WRITtI, 


JMS I FTYPL 


03201 


7410 




SKP 


03202 


5217 




JMP PDNE 


03203 


4547 




JMS I BUFCHL 


03204 


0240 


K240r 


240 


03205 


0210 


K0210. 


0210 


03206 


4552 




JMS I NEXREL 


03207 


1044 




TAD EXP 


03210 


4525 




JMS I WRITFW 


03211 


1045 




TAD HORD 


03212 


4525 




JMS I WRITFW 


03213 


1046 




TAD LORD 


03214 


4525 




JMS I WRITFW 


03215 


5246 




JMP WDONE 



/GET FILE TYPE 

/NUMERIC-WRITE DATA 

/ASCII 

/FILE IS NUMERIC-CHECK BUFFER STATUS 

/PAST END-NEW RECORD (AND INST SERVES AS NOP) 

/AT END-NEW RECORD (AND SFRVES AS NOP) 

/ONE WORD LEFT-DON'T USE If 

/EXPONENT 

/WRITE IN BUFFER 

/HIGH MANTISSA 

/WRITE IN BUFFER 

/LOW MANTISSA 

/WRITE IN BUFFER 

/DONE 



03216 1260 ASCOUL* ASCOUT 



/LINK TO FPP CALLER AND FORMATTER 



/PDNE-CALLS ASCOUT TO GET NUMBER INTO INTERMEDIATE 
/BUFFER, THEN TYPES IT ON DEVICE 



03217 


4616 


PDNEi 


JMS 1 A5C0UL 


03220 


2061 




ISZ TEMP10 


03221 


1461 




TAD 1 TEMP10 


03222 


1251 




TAD MPLUS 


03223 


7640 




8ZA CLA 


03224 


5227 




JMP MDNE 


03225 


1204 




TAD K240 


03226 


3461 




OCA I TEMP10 


03227 


1007 


MONE# 


TAD TEMP2 


03230 


1573 




TAD I WORO10 


03231 


1252 




TAD M110 


03232 


7740 




SMA SZA CLA 


03233 


4553 




JMS I CRLF 


03234 


1461 


CPLOUP, 


TAD I TEMP10 


03235 


1055 




TAD M215 


03236 


7650 




SNA CLA 


03237 


5244 




JMP ASCNDE 


03240 


1461 




TAD I TEMP10 


03241 


4253 




JMS PUTCM 


03242 


2061 




ISZ TEMP10 


03243 


5234 




JMP CPLOOP 


03244 


1204 


ASCNUEr 


TAD K240 


03245 


4253 




JMS PUTCH 


0324b 


3650 


WDONE, 


DCA I COMMAP 


03247 


5513 




JMP I ILOOPL 


03250 


2557 


COMMAP, 


COMMAS 


03251 


7525 


MPLUS, 


-253 


03252 


7670 


M110, 


• 110 



/GET # INTO INTER BUFFER 

/MOVE POINTER PAST SPACE THAT SENT US HERE 

/GET SIGN 

/IS IT PLUS? 

/NO-ITS MINUS 

/SPACE 

/REPLACE "♦'• WITH SPACE 

/GET COUNT OF CHARS TO BE PRINTED 

/AOO TO PRINT HEAD POSITION 

/COMPARE AGAINST "72" 

/WILL THE NUMBER FIT ON THIS LINE? 

/NO-ISSUE A CR,LF 

/GET CHAR FROM INTERMEDIATE BUFFER 

/IS IT CR? 

/YES-NUMBER ALL OUTPUTTED 

/NO-GET CHAR AGAIN 

/PUT ON DEVICE 

/BUMP POINTER 

/NEXT 



/FOLLOW THE NUMBER WITH A SPACE 
/CLEAR COMMA SWITCH 
/WRITE IS DONE 



• 



• 
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/ROUTINE TO PUT ASCII CHARS IN FILE BUFFER, IGNORES RUBOuTS. 



032S3 


0000 


PUTCH, 





03254 


3040 




OCA TEMPI 


032S5 


1040 




TAD TEMPI 


03256 


1301 




TAD MRUBOT 


03257 


7650 




SNA CLA 


032b0 


5653 




JMP I PUTCM 


03261 


4550 




JMS 1 FTYPL 


03262 


4516 


sw, 


JMS I ERROR 


03263 


2573 




ISZ I hORO10 


03264 


1162 




TAD ENTNO 


03265 


7650 




SNA CLA 


03266 


5276 




JMP TOUT 


03267 


4547 




JMS 1 BUFCHL 


03270 


4552 




JMS I NEX 


03271 


0040 


KK40, 


40 


03272 


0020 


K20, 


20 


03273 


1040 




TAD TEMPI 


03274 


4545 




JMS I PACKL 


03275 


5653 




JMP I PUTCH 


03276 


1040 


TOUT. 


TAD TEMPI 


03277 


4522 




JMS I XPUT 


03300 


5653 




JMP I PUTCH 



/SAVE CHAR 
/GET CHAR AGAIN 

/IS IT A RUBOUT? 

/YES-RETURN 

/IS FILE NUMERIC? 

/YES-ERROR 

/BUMP COULMN NUMBER 

/GET ENTRY # 

/IS IT TTY? 

/YES-JUST PUT CHARS 

/NO-IS BUFFER FULL? 

/YES-NEXT RECORD 

/THERE IS A CHAR 3 

/THERE IS A CHAR 2 

/GET CHAR AGAIN 

/PUT IN BUFFER 

/RETURN 



/GET CHAR 

/PUTCH CHAR IN OUTPUT BUFFER FOR TTY 

/RETURN 



IN RING BUFFER 



LEFT CANO IS A NOP) 

AND 3 LEFT (AND IS A NOP) 



03301 7401 MRUBOT, -377 
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/SUBROUTINE NEXREC-WRITES THIS BUFFER IN FILEpTHEN READS IN NEXT BUFFER 
/IF POSSIBLE, ELSE SETS EOF BIT. IF DEVICE IS READ OR WRITE ONLY 
/IT JUST READS OR WRITES A BLOCK, WHICHEVER IS APPROPRIATE 



03302 


0000 


03303 


1563 


03304 


0272 


03305 


7650 


03306 


5316 


0330T 


4743 


03310 


5314 


03311 


4350 


03312 


4361 


03313 


5702 


03314 


4344 


03315 


5312 


03316 


4350 


03317 


4361 


03320 


2565 


03321 


1570 


03322 


7041 


03323 


1565 


03324 


3015 


03325 


1571 


03326 


4405 


03327 


5332 


03330 


4344 


03331 


5702 


03332 


4743 


03333 


5543 


03334 


1571 


03335 


3015 


03336 


1572 


03337 


4405 


03340 


5543 


03341 


2571 


03342 


5702 



NEXRtC, 



RWONC, 





TAD I WORD0 
AND K20 
SNA CLA 

JMP FILSTR 
JM8 I FOTYPL 

JMP RONLY 
JMS WRBLK 
JMS BLINIT 
JMP I NEXREC 



RONLY, JMS 8LREAD 
JMP RWONC 

FILSTR, JMS WRBLK 
JMS BLINIT 
ISZ I W0RD2 
TAD I W0RD5 
CIA 

TAD I WORDS 
DCA BABS 
TAD I W0R06 
JMS I NUMCOM 

JMP LASTS 
JMS BLREAD 
JMP I NEXREC 



LAST8, JMS I FOTYPL 
JMP I EOPSEL 
TAD I W0R06 
DCA BABS 
TAD I W0RD7 
JMS I NUMCOM 

JMP I EOFSEL 
ISZ I W0RD6 
JMP I NEXREC 



/GET HEADER 

/GET REAO/WRITE ONLV BIT 

/IS IT ON? 

/NO-DEVICE IS FILE STRUCTURED 

/YES-IS IT INPUT OR OUTPUT FILE? 

/INPUT-DEVICE IS READ ONLY 

/DEVICE IS WRITE ONLY-WRITE THIS BLOCK IF USED 

/INIT FILE TABLE ENTRIES 

/DONE 

/READ BLOCK INTO CORE 
/INIT POINTERS 

/WRITE THE CURRENT BLOCK IF IT HAS BEEN CHANGED 

/INIT FILE TABLE ENTRIES 

/BUMP BLOCK # 

/STARTING BLOCK 

/NEGATE 

/SUBTRACT FROM CURRENT BLOCK FDR FILE LENGTH 

/SET UP CURRENT FILE LENGTH FOR 12 SIT COMPARE 

/COMPARE TO ACTUAL LENGTH 

/IS IT > CURRENT LENGTH? 

/YES-EXTEND THE FILE IF IT IS OUTPUT 

/READ IN THE NEXT RECORD 

/RETURN 



/IS FILE FIXED LENGTH? 
/YES-SET EOF FLAG 
/NO-GET ACTUAL LENGTH 

/MAXIMUM LENGTH 

/IS ACTUAL LENGTH »» MAXIMUM LENGTH? 

/YES-SET EOF BITS 

/NO-BUMP ACTUAL LENGTH 

/RETURN WITHOUT READING NEXT RECORD 



03343 2357 FOTYPL» FOTYPE 



# 



# 
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/ROUTINE TO READ 2 PAGES FROM DEVICE 



03344 
03345 
03346 
03347 



03350 
03351 
03352 
03353 

03354 
03355 
03356 
03357 
03360 



03361 
03362 

03363 
03364 
03365 
03366 
03367 
03370 



03371 
03372 
03373 
03374 



0000 
1205 
4524 
5744 



0000 
1563 
0271 
7650 
5750 
1360 
4524 
5750 
4210 



0000 
1564 
3566 
1563 
0370 
3563 
5761 
7437 



0000 
4535 
1152 
5771 



BLREADi 

TAD K0210 
JMS I DEVCAL 
JMP I BLREAD 



/••READ 2 PAGES" 
/HANOLtR CALL 



/ROUTINE TO WRITE 2 PAGES ONTO DEVICE 



WRBLK, 



TAD I WOROe 
AND KK40 
SNA CLA 

JMP I MRBLK 
TAD K4210 
JMS I DEVCAL 
JMP I WRBLK 
4210 



/GET FILE HEADER 

/GET FILE WRITTEN BIT 

/HAS THIS BLOCK BEEN CHANGED? 

/NO-RETURN 

/"WRITE 2 PAGES" 

/CALL TO DEVICE HANDLER 



K4210, 

/ROUTINE TO INITIALIZE I/O TABLE ENTRIES AFTER READ OR WRITE 

BLINlTi 

TAD I WOROl 

OCA I W0RD3 /INIT READ/WRITE POINTER 

TAD I WORD0 

AND K7437 /SET CHAR # TO 1 AND CLEAR BLOCK WRITTEN BIT 

OCA I WORO0 

JMP I BLINIT 
K7437, 7437 

/ROUTINE TO SAVE THE FAC IN FP TEMP 



FACSAV, 

JMS I FPUTL 

INTERS 

JMP 1 FACSAV 



/STORE FAC 

/USE INTERMEDIATE BUFFER FOR TEMP STORAGE 

/RETURN 
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(nnnntdnnnutnntnfin/nmnninn 
ttHuuunnnuiun/un/inntiunt/uNi 

(ftn OVERI.AY BUFFER 34a0-«fc00 ///////////// 
inU CONTAINS FUNCTION OVERLAYS ttttnUUfU 

nut AT RUN TIME //ntn/tnu 

unfuunnnnnnnnNfUunn/nnunn 
nunnnnntnuiNi/nnnnnNnNuinn 



• 



# 



• 
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3400 



///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////// 

////////////// OVERLAY 1-ARITHMETIC FUNCTIOMS /////////////// 
///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////// 

•OVERLAY 



/INTEGER FUNCTION 
/RANGE'ALL X 



03400 

03401 

03402 

03403 

03404 

03005 

03406 

03007 

03410 

03011 

03412 

03413 

03414 

03415 

03416 

03417 

03420 

03421 

03422 

03423 

03424 

03425 

03426 

03427 

03430 

03431 

03432 

03433 

03434 

03435 

03436 

03437 

03440 

03441 

03442 

03443 

03444 

03445 

03446 

03447 

03450 

03451 



INT, 







0000 

4535 JMS 1 FPUTL 

1175 FPPTMl 

1044 TAD EXP 
7740 SMA SZA CLA 
5213 JMP INSC 

1045 TAD HORD 
7710 SPA CLA 
5270 JMP MIR 
4537 JMS I FCLR 
5600 JMP I INT 
1045 INSC> TAD HORD 
7700 SMA CLA 
5220 JMP INTPOS 
4540 JMS I FNEGL 
7001 lAC 

3042 INTPOSf OCA TEMPS 
3047 DCA TEMPS 
7130 CLL CML HAR 

3043 DCA TEMP4 

1044 TAD EXP 
7041 CIA 

3007 DCA TEMP2 
1043 MASKLi TAO TEMPa 

7130 CLL CML RAR 

3043 OCA TEMP4 

1047 TAD TEMPS 

7010 RAR 

3047 OCA TEMPS 

2007 ISZ TEMP2 

5227 JMP MASKL 

1045 TAO HOHO 
0043 AND TEMP4 

3045 DCA HORD 

1046 TAD LORD 
0047 AND TEMP5 

3046 OCA LORD 
1042 TAD TEMP3 
7650 SNA CLA 
5600 JMP I INT 
4535 JMS I FPUTL 
1172 FPPTM2 



/SAVE X 

/GET EXPONENT 
/IS EXP<0? 
/NO-GO ON 
/YES 

/IS X<07 
/YES-INT«-1 
/YES-RETURN A 

/GET HI MANTISSA 

/IS IT <07 

/NO-USE FAC AS IS 

/YES-NEGATE FAC (MAKE IT P05) 

/ANO SET FLAG 

/FLAG FOR NEGATIVE 

/ZERO LORD MASK 

/INITIALIZE HORO MASK TO 4000 

/- COUNT 



/ROTATE I'S THROUGH 3 WORD MASK 

/ 

/UNTIL THERE IS A COUNT OF ZERO 



/DONE? 

/NO 

/YES-MASK HORD 



/MASK LORD 



/NEG FLAG 

/WAS ORIGINAL NUMER <0? 

/NO-OONE 

/SAVE INTCX} 
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03452 


4673 




JMS I FAOOLK 


/-INT(X)*(X) 


03453 


1175 




FPPTMl 




03454 


1045 




TAD HORO 


/SAVE HORD 


03455 


3042 




OCA TEMP3 




0345* 


4537 




JMS I ^CLR 


/FLUSH fAC 


03457 


1042 




TAD TEMP3 


/WAS INT(X)aX? 


03460 


7650 




SNA CIA 




03461 


5264 




JMP JUSNEG 


/VES-JUST NEGATE INT(X) 


03462 


4673 




JMS I FADOLK 


/NO-ADO 1 


03463 


3474 




ONE 




03464 


4673 


JUSNEG, 


JMS I PADDLK 


/GET INT(X) 


03465 


1172 




FPPTM2 




03466 


4540 


JNEG. 


JMS I FNEGL 


/AND NEGATE CINT C5.3) «-6) 


03467 


5600 




JMP I INT 


/DONE 


03470 


«534 


MIR, 


JMS I FGETL 


/LOAD FAC WITH 1 


03471 


3474 




ONE 




03472 


5266 




JMP JNEG 


/JUST NEGATE AND RETURN 


03473 


6000 


FADOLK, 


FFAOD 




03474 


0001 


ONE. 


1 




03475 


2000 




2000 




03476 


0000 










• 
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/EXPONENTIATION FUNCTION 

/IF 8»0,A*B»1 

/IF A»0 AND B>0,A»B»0 

/IF A«0 AND B<0, DIVIDE BY ZERO ERROR MESSAGE RESULTS AND A-H>0 

/IF a>INTEGER > Z, A*B«A*A*A* *A 

/IF BiINTEGER « 0, A*B»1/A«A*A* *A 

/IF B»REAL AND A»0, A*BiEXP tB*LOG(A) ) 
/IF B«REAL AND A«0, A FATAL ERROR RESULTS 



03477 


0000 


03500 


4535 


03501 


1161 


03502 


4535 


03503 


1164 


03504 


1045 


03S05 


3277 


03506 


3064 


03507 


4711 


03510 


4534 


03511 


0307 


03512 


6201 


03513 


1045 


03514 


7450 


03515 


5771 


03516 


7700 


03517 


5323 


03520 


1277 


03521 


7650 


03522 


5774 


03523 


1277 


03524 


7650 


03525 


5365 


03526 


4535 


03527 


1167 


03530 


4200 


03531 


4773 


03532 


1167 


03533 


1045 


03534 


7640 


03535 


5767 


03536 


4534 


03537 


1167 


03500 


1045 


03541 


3277 


03542 


4775 


03543 


4535 


03544 


1167 


03545 


4534 


03546 


1167 


03547 


4773 


03550 


3474 


03551 


4535 



EXPON, 

JMS I FPUTL 

FPPTM5 
JM8 I FPUTL 

FPPTM4 
TAD HORO 
DCA EXPON 
OCA INSAV 
JMS I ARGPLL 
JMS I FGETL 
ARGPLL* ARSPHE 
CDF 

TAD HORO 
SNA 

JMP I RETRNO 
SMA CLA 

JMP ,♦4 
TAD EXPON 
SNA CLA 

JMP I DVTRAP 
TAD EXPON 
SNA CLA 

JMP RET0 
JMS I FPUTL 

FPPTM3 
JMS INT 
JMS I F8UBLL 

FPPTM3 
TAD HORO 
SZA CLA 

JMP I U8EL0L 
JMS I FGETL 

FPPTM3 
TAD MORD 
OCA EXPON 
JMS I ABSV 
JMS I FPUTL 

FPPTM3 
EMLOOP, JMS I FGETL 

FPPTM3 
JMS I FSUBLL 

ONE 
JMS I FPUTL 



/SAVE A 

/SET UP RUNNING PRODUCT IN CASE OF 

/MULTIPLIES 

/HI ORDER OF A 

/SAVE IT 

/POINTER TO B IN SYMBOL TABLE 

/FIND B 

/GET B 

/LOC SKIPPED BY FPP,SO WE USE IT FOR CONSTANT 

/HI ORDER OF B 

/IS B«0? 

/YES A-B«l 

/IS B«0? 

/NO 

/YES-GET HI ORDER A 

/IS A«07 

/YES-DIVIDE BY ZERO ERROR 

/B>0, IS A80? 

/YES A''B»0 
/SAVE B 

/GET INTCB) 
/INT(B)-8 

/IS INT(8)-B»07 

/NO-USE LOGS 

/YES-USE REPETITIVE MULTIPLY 

/GET B AGAIN 

/SAVE SIGN OF B 

/IBJ 

/USE ABSCB) AS MULTIPLY COUNT 

/GET B 

/B-1 

/SAVE NEW COUNT 
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03552 


1167 




FPPTM3 


035S3 


1045 




TAD HORO 


0355a 


7650 




SNA CLA 


03555 


5770 




JMP I EMDONL 


03556 


4534 




JMS I FGETL 


03557 


1164 




FPPTM4 


035<i0 


4772 




JMS I FMPYL 


03561 


1161 




FPPTM5 


03568 


4535 




JMS I FPUTL 


03563 


1164 




FPPTMa 


03564 


5345 




JMP EMUOOP 


03565 


4537 


RET0» 


JMS I FCLR 


03566 


5513 




JMP I ILOOPU 


03567 


3613 


USELOU* 


USELOG 


03570 


3600 


EMDONLr 


EMOONE 


03571 


3610 


RETRNO* 


RETRNl 


03572 


5600 


FMPVU# 


FFMPY 


03573 


6117 


FSUBLL* 


FFSUB 


03574 


6355 


OVTRAP, 


DV 


03575 


2366 


ABSV> 


ABSVAU 



/IS COUNT ZERO YET 
/YES-MULTIPUieS ARE DONE 
/NQ-GET RUNNING PRODUCT 

/MULTIPLY BY A 

/SAVE NEW RUNNING PRODUCT 



/RETURN WITH IN FAC 



• 



/QS/S 


BASIC 


RUNTIME 


SYSTEM 
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3600 




PAGE 




03600 


4534 


EMOONE, 


JMS I FGETL 


/GET RUNNING PRODUCT 


03601 


1164 




FPPTM4 




03602 


1630 




TAO I EXPONK 


/QET SIGN OF 8 


03603 


7700 




8MA CLA 


/WAS IT -? 


03604 


5513 




JMP I ILOOPL 


/NO-A*B»A*A*A*,,,*A 


03605 


4631 




JMS 1 FIDVP 


/YES-INVERT 


03606 


3474 




ONE 




03607 


5513 




JMP I ILOOPL 


/A*Bal/AtA*A*.,,*A 


03610 


4534 


RETRNl, 


JMS I FGETL 




03611 


3474 




ONE 


/SET FAC TO 1 


03612 


5513 




JMP I ILOOPL 




03613 


1630 


USELOG, 


TAD I EXPONK 


/SIGN OF A 


03614 


7710 




SPA CLA 


/A«0? 


0361S 


4516 


EM, 


JMS I ERROR 


/YES-PRINT A MESSAGE 


03616 


4534 




JMS 1 F6ETL 


/LOAD A 


03617 


1161 




FPPTM5 




03620 


4626 




JMS 1 FFLOGL 


/LOG(A) 


03621 


4627 




JMS I FMPYLV 


/B*LOG(A) 


03622 


1167 




FPPTM3 




03623 


4625 




JMS I FFEXPL 


/EXP(B*LOGCA)) 


03624 


5513 




JMP I ILOOPL 


/DONE 


03625 


4120 


FFEXPL. 


FFEXP 




03626 


4263 


FFLOtiL, 


FFLDG 




03627 


5600 


FMPVUV» 


FFMPY 




03630 


3477 


EXPONK, 


EXPON 




03631 


5412 


FIDVP, 


FFOIVl 








/86N FUNCTION 




03632 


0000 


SGN, 







03633 


1045 




TAD HORD 


/GET HIGH MANTISSA 


03634 


7450 




SNA 


/IS XbZERO? 


03635 


5513 




JMP I ILOOPL 


/YES-TMEN LEAVE IT ALONE 


03636 


7710 




SPA CLA 


/IS X>07 


03637 


5242 




JMP .■¥! 


/NO 


03640 


7001 




lAC 


/YES-SET FAC»1 


03641 


7410 




SKP 




03642 


7040 




CMA 


/NO-SET FAC«-1 


03643 


3044 




OCA EXP 


/SET UP FLOAT 


03644 


4541 




JMS I FLOATL 


/FLOAT VALUE OF SGN FUNCTION 


03645 


5513 




JMP I ILOOPL 


/DONE 
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/nOATING SQUARE ROOT 






/USES A HARDWARE TYPE A 






/REF« THE LOGIC 


OF COMP 


03646 


0000 


FROOT, 






036<17 


7332 


CLA 


CLL 


CML RTR 


03650 


3375 


DCA 




ANl 


03651 


3376 


OCA 




AN2 


03652 


6201 


COF 






03653 


1377 


TAD 




KM22 


03654 


3042 


OCA 




AC2 


03655 


1045 


TAO 




ACH 


03656 


7450 


SNA 






03657 


5646 


JMP 


I 


FROOT 


03660 


7710 


SPA 




CLA 


03661 


4540 


JMS 


I 


FNEGL 


03662 


1044 


TAO 




ACX 


03663 


7510 


SPA 






03664 


7020 


CML 






03665 


7010 


RAR 






03666 


3044 


OCA 




ACX 


03667 


7430 


SZL 






03670 


2044 


ISZ 




ACX 


03671 


7000 


NOP 






03672 


7420 


SNL 






03673 


4774 


JMS 


I 


ALIK 


03674 


7344 


CLA 


CLL 


CMA RAL 


03675 


3373 


DCA 




ZCNT 


03676 


7332 


CLA 


CLL 


CML RTR 


03677 


7012 


RTR 






03700 


30S0 


OCA 




OPH 


03701 


3051 


DCA 




OPL 


03702 


1372 


TAD 




K6000 


03703 


1045 


TAO 




ACH 


03704 


3045 


DCA 




ACH 


03705 


1045 


TAD 




ACH 


03706 


7450 


SNA 






03707 


1046 


TAD 




ACLO 


03710 


7650 


SNA 




CLA 


03711 


5365 


JMP 




DONE 


03712 


5322 


JMP 




LOP01 


03713 


1050 


SLOOP, TAD 




OPH 


03714 


7110 


CLL 




RAR 


03715 


3050 


DCA 




OPH 


03716 


1051 


TAD 




OPL 


03717 


7010 


RAR 






03720 


3051 


DCA 




OPL 


03721 


4774 


JMS 


I 


AUK 


03722 


1051 


LOP01, TAD 




OPL 


03723 


1376 


TAO 




AN2 


03724 


7141 


CLL 


CMA 


lAC 


03725 


1046 


TAO 




ACLO 


03726 


7450 


SNA 






03727 


2373 


ISZ 




ZCNT 



IFZERO EAE < 
JOT 

rPE ALGORITHM FOR BINARY SQUARE ROOTS 
R ARITHMETIC-IVAN FLORES-P 409 



CML RTR /SET RESULT TO 2000;0000 



/OF TO PACKAGE FIELD 

/SET COUNTER FOR DEVELOPING 22 BITS OF RESULT 

/ALREADY HAVE 1 



/ZERO FAC-NOHMALIZEDl-RETN, SAME 

/TAKE ROOT OF ABSOL VALUE 

/GET EXPONENT OF FAC 

/IF NEGATIVE-MUST PROPAGATE SIGN 

/DIVIDE EXP, BY 2 

/STORE IT BACK 

/INCREMENT EXP, IF ORIGINAL EXP 

/WAS ODD 

/DO A PRE-SHIFT FOR EVEN EXPONENTS 
/SO FIRST BIT PAIR IS 10 NOT 01 
/SET COUNTER FOR DETECTING A 
/ZERO REMAINDER 
/SET UP POSITION OF TRIAL BIT 
/FOR FIRST PASS THRU LOOP 



/GET A FAST FIRST 8IT-WE KNOW 

/THIS WILL WORK SINCE « IS NORMALIZED 

/IF # IS A POWER OF TWO, AND A PERFECT 

/SOUARE-WE ARE DONE HEREl 

/WELL IS IT? 

/COULD BE-CHECK LOW ORDER 

/WHOOPPEE-WE WIN BIG, 

/NOPE-LOOP DON'T SHIFT FIRST TIME 

/SHIFT TRIAL BIT 1 PLACE 

/TO THE RIGHT 

/AND STORE BACK 



/SHIFT FAC LEFT 1 PLACE 

/ADO TRIAL BIT TO ANSWER 

/SO FAR 

/NEGATE IT 

/ANO ADD TO FAC (REMAINDER SO FAR) 

/IS RESULT ZERO? 

/YES-INCREMENT COUNTER 



/08/8 BASIC RUNTIME SYSTEM PAL8-VT 10/24/72 PAGE 56-1 
03T30 3043 DCA TM /STOKE RtSULT IN TEMPORARY 



/08/« BASIC RUNTIME SYSTEM 



PALS-VT 10/24/72 PAGE 57 



03731 

03732 
03733 

03734 
03735 
03736 

03737 
03740 
03741 
03742 
03743 
03744 
03745 
03746 
03747 
03750 
03751 
03752 
03753 
03754 
03755 
03756 
03757 
03760 
03761 
03762 
03763 
03764 
03765 
03766 
03767 
03770 
03771 

03772 
03773 
03774 
03775 
03776 
03777 



7024 

1050 

1375 

7141 

1045 

7420 

5361 

7440 

5346 

2373 

5346 

7040 

3042 

3045 ILOP02, 

1043 

3046 

1051 

7104 

1376 

3376 

1050 

7004 

1375 

3375 

7344 SON, 

3373 

2042 

5313 

1375 DONE* 

3045 

1376 

3046 

5646 

6000 K60e0, 

0000 ZCNTf 

6057 ALIK, 

0000 ANtf 



AN2, 
7752 KM22, 



CMU 

TAO 

TAD 

CLL CMA 

TAO 

SNU 

JMP 

SZA 

JMP 

ISZ 

JMP 

CMA 

OCA 

QCA 

TAO 

OCA 

TAD 

CLt. 

TAO 

OCA 

TAO 

RAL 

TAD 

OCA 

CtA CLL 

OCA 

ISZ 

JMP 

TAD 

OCA 

TAD 

OCA 

JMP 1 

6000 



ALl 





•26 



RAL 
OPH 
ANl 
lAC 
ACH 

SON 

LOP02 

ZCNT 

.♦3 

AC2 

ACH 

TM 

ACLO 

OPL 

RAL 

AN2 

AN2 

0PM 

ANl 

ANl 

CMA RAL 

ZCNT 

AC2 

SLOOP 

ANl 

ACM 

AN2 

ACLO 

FROOT 



/ADD CARRY TO HIGH ORDER FOR SUBTRACT 

/AGO TRIAL BIT 

/ADO RESULT SO FAR (HI ORDER) 

/AND SUBTRACT FROM HI ORDER FAC 

/RESULT NEGATIVE? 

/YES-NEXT RESULT BIT IS 

/NQ-IS HI ORDER RESULT»0? 

/NO-GO ON 

/YES-WAS LOW ORDER ■07 

/NO-GO ON 

/YES-REM,«0-SET COUNTER SO 

/LOOKS LIKE WE'RE DONE 

/STORE HIGH ORDER REM, IN FAC 

/STORE LO ORDER REM, IN FAC 

/TRIAL BIT SHIFTED LEFT 1 IS 
/RESULT 8IT-A0D IT TO ROOT DEVELOPED 
/SO FAR 



/RESET COUNTER FOR ZERO REM, 

/DONE ALL 23 RESULT BITS? 
/NO-GO ON 

/YES-STORE ANSWER IN FAC 
/ITS NORMAUIZEO ALREADY 



/AND RETURN 



# 



/OS/B BASIC RUNTIME SYSTEM 



# 
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IFNZRO EAE < 
ENPUNCH 



/FLOATING SQUARE ROOT 

/USES MODIFIED HARDWARE ALGORITHM FOR BINARY SQUARE ROOTS 

/REFI THE UOBIC OF COMPUTER ARITHMETIC-IVAN FUORESi P-409 

ttSGNl'U 
FROOT, 

CLA CLL CMU RTR /SET RESLT TO 2000,0000 



RKNTi 



LOOP* 



LOPlr 



OCA 

OCA 

SWAB 

CDF 

OCA 

TAD 

DCA 

TAD 

ASR 

I 

DCA 

DP82 

ISZ 

NOP 

MQA 

CU 

CML 

OCA 

CLC 

RTR 

OCA 

OCA 

DCA 

OLD 

ACH 

8WP 

SNA 

JMP 

SPA 

DCM 

SHL 



TAD 

OPSZ 

JMP 

JMP 

DUO 

ACH 

SHL 

i 

DST 

ACH 

DID 

AC0 



CMU 



I 



OPl. 
OPH 



RBCNT 
KM22 
AC2 
ACX 



ACX 



ACX 



RAL 
RAL. 
RKNT 
RTR 

ACl 
AC0 
ACNT 



FROOT 



K600e 

LOPl 

DONE 



/MODE B OF EAE-AU50 DOES MOL 



/CUR. SHIFT COUNTER 

/SET COUNTER FOR 23 BITS 
/GET EXPONENT OF FAC 
/DIVIDE BY 2 



OP RESULT 



/STORE IT BACK 
/INCREMENT EXP. 
/WAS ODD 



IF ORIG. EXP 



/DETERMINE WHETHER TO DO A 
/PRE-SMIFT FOR EVEN EXPONENTS. 

/STORE BIT-0 OR I SHIFT CNT 
/SET UP FIRST TRIAL BIT 



/STORE AWAY 
/ZERO COUNTER 
/GET THE FAC 

/GET IN RIGHT ORDER 

/IS IT ZERO? (HI QRD30) 

/YES-ROOT » 

/NEGATIVE? 

/YES-TAKE A8S0L. VALUE 

/SHIFT # I BIT IF EXP MAS EVEN 

/SO FIRST BIT PAIR IS 10 NOT 01 

/SUBTRACT 2000-KNOW FIRST BIT 

/IS l(N0RMALIZE0)-D0NE7? 

/NO-WE MUST LOOP 

/YES-AN EASY ONEUl 

/GET THE FAC 

/SHIFT FAC APPROPRIATELY 



/MUST STOR 
/BIT IS 
/GET TRIAL 



BACK IN CASE RE5LT 
BIT 



/OS/8 BASIC RUNTIME SYSTEM 



ACNT, 



ZREM. 
NOTZROf 

R8CNT, 

GON» 
DONE» 



KMSa, 
K600ia, 



ASR 

isz 

DAD 
0PM 
DCM 
ISZ 
DAD 
ACH 
SNL 
JMP 

DPSZ 

JMP 

CMA 

DCA 

DST 

ACH 

CAM 

RTR 

ASR 



DAD 

OPH 

DST 

OPH 

ISZ 

JMP 

OLD 

OPH 

DCA 

SMP 

DCA 

JMP I 

-26 

6000 

NOPUNCH 

> 
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/SHIFT THE BIT APPROPRIATELY 

ACNT /SHIFT I MORE NEXT TIME 
/ADO IM RESULT SO FAR 

/NEGATE IT 
RBCNT /BUMP COUNTER FOR RESLT BIT 
/OO THE SUBTRACT 

/RESULT NEGATIVE? 
GON /YES-NEXT RESULT SIT » 

/NO-DID WE GET A ZERO REMAINDER? 
NOTZRO /NOPE 

/YES-SET SO LOOKS LIKE WE'RE DONE 
AC2 

/GOOD SUBTR, -MODIFY FAC 

/ITS NOT CHANGED BY BAD SUBTRACT 

/CLEAR EVERYTHING 

/SHIFT RESLT BIT TO RIGHT PLACE 



/ADO IT TO THE RESULT SO FAR 

/WE APPEND IT TO RIGHT OF LAST 

/BIT 

/STORE IT BACK 

/DONE 23 BITS? 

/NO-GO ON 



AC2 
LOOP 



ACH 

ACLO 
FROOT 



/YES-GET RESULT-ITS NORMALIZED 

/STORE HIGH ORDER BACK 

/STORE LOW ORDER BACK 
/RETURN 



• 



/OS/S BASIC (RUNTIME SYSTEM PAt.B-V7 10/84/72 PAGE 59 
/23-8IT EXTENDED FUNCTIONS 
/1-31-72 R BEAN 
• 4000 



/••••••SINE****** 



04000 
04001 
04002 
04003 
04004 
04005 
04006 
04007 
04010 
04011 
04012 
04013 
04014 
04015 
04016 

04017 
04020 
04021 
04022 
04023 
04024 
04025 
04026 
04027 
04030 
04031 
04032 
04033 
04034 
04035 
04036 
04037 
04040 
04041 
04042 
04043 
04044 
04045 
04046 
04047 
04050 
04051 
04052 



0000 
4303 
4661 
4160 
4271 
1313 
0270 
1212 
3211 
5211 
5613 
4026 
4017 
4022 
4024 

4663 
3474 
5226 

4540 
5226 

4664 
3474 
4535 
1175 
4665 
4535 
U72 
4661 
4377 
4660 
4374 
4661 
1172 
4660 
4371 
4661 
1172 
4660 
4366 
4661 
1175 
4313 
5600 



»INi 







JMS NHNDLE 
JMS I FMPVLK 

TOVPI 
JMS FRACT 
TAD NUM 
AND C3 
TAD JMPISN 
OCA .♦! 
JMP , 
JMPISN, JMP I ,♦! 
POLYSN 
OUA02 
0UAD3 
0UAD4 



QUA02| 



QUADS, 
0UAD4, 

POLYSN, 



JMS I FSUBIL 

ONE 
JMP POLYSN 
JMS I FNE6L 
JMP POLYSN 
JMS I FSUBL 

ONE 
JMS I FPUTL 

FPPTMl 
JMS I FSORL 
JMS I FPUTL 

FPPTM2 
JMS I FMPYLK 

SINA7 
JMS I FAOOL 

SINA5 
JMS I FMPYLK 

FPPTM2 
JMS I FAODL 

SINA3 
JMS I FMPYLK 

FPPTM2 
JMS I FAODL 

SINAI 
JMS I FMPYLK 

FPPTMl 
JMS NCHK 
JMP I SIN 



/IF X«0, NEGATE X AND SET NFLAG 
/)(*2/PI 

/SAVE X IN TEMPI, THE INTEGER PART OF X IN NUM, AND GET FRACTIONAL PART 
/GET INTEGER PART OF t2/PI)*X 
/ISOLATE BITS 10,11 

/MAKE JUMP TO ARGUMENT REDUCING ROUTINE 
/AND ADJUST ARG ACCORDING TO QUAURANT OF X 

/X IN QUAD1,SIN(X)«SINCX) 

/X IN QUAD2,SIN(X)»SIN(1-X) 

n IN QUAD3,SIN(X)sSINC«X} 

/X IN QUAD4,SIN(X3sSINCX-l) 

/l-X 

/CALCULATE SIN(l-X) 

/-X 

/CALCULATE 8IN(-X) 

/X-1 

/SAVE X 

/U«X**2 
/SAVE U 

/A7*U 

/A5*A7*U 

/A5*U*A7*U**2 

/A3+A5(U)*A7(U**2) 

/A3CU)*A5CU**2)*A7(U**35 

/A1+A3(U)*ASCU**2)*A7(U**3) 

/A1CX3*A3CX**3)*ASCX**5)*A7(X**7) 

/IF NFLAG IS SET, SET SIN (X) «-SIN (X) 
/FAC«SINCX) 



/OS/8 BASIC RUNTIME SYSTEM 
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/*»«***COSINE****** 

/USES SIN ROUTINE TO CALCULATE COS(X) 



ZUdSi 


0000 


COS* 





0tt05tt 


4660 




JHS I FADDL 


0a055 


4402 




PI0V2 


eaes6 


4200 




JM8 SIN 


04057 


5653 




JMP 1 COS 


04060 


6000 


FADDL* 


FFAOD 


e|40bt 


5600 


FMPVLK, 


FFMPV 


04062 


5722 


POIVC, 


FFOIV 


04063 


5400 


FSUBIU* 


FFSUBl 


04064 


6117 


FSUBL, 


FF8UB 


04065 


6347 


FSQRU, 


FFSQ 


04066 


4S00 


FIXL» 


FFIX 


04067 


5412 


F0IV1L» 


FFDIVl 


04070 


0003 


C3, 


3 



/cos(x)»siNtPi/a*x) 



/RETURN 



# 



/08/» BASIC RUNTIME SYSTEM 
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04071 


0000 


04072 


4535 


04073 


1175 


04074 


4666 


04075 


1044 


04076 


3313 


04077 


4541 


04100 


4663 


04101 


1175 


04102 


5671 



/ROUTINE TO SEPERATE THE INTEGER AND FRACTIONAL PARTS OF FAC 

/ORIGINAL FAC IS SAVED IN TEMPI, THE INTEGER PORTION OF FAC IS 

/SAVED AT NUM,AND THE FRACTIONAL PORTION OF THE FAC IS LEFT IN THE FAC 



FRACT, 



JMS I FPUTL 

FPPTMl 
JMS I FIXL 
TAD EXP 
OCA NUM 
JMS I FLOATL 
JMS I FSUBIL 

FPPTMl 
JMP I FRACT 



/SAVE X 

/INTEGER PORTION OF x 

/SAVE FIXED FORTION OF X 
/FAC»FL0AT(FIXCX)3 
/FAC«X-INT(X)»FRACTION (X) 

/RETURN 



/ROUTINE TO CHECK IF FAC<0| IF IT IS, FAC IS NEGATED AND NFLAG IS 
/SET TO I 



04103 


0000 


04104 


1045 


04105 


7700 


04106 


5311 


04107 


4540 


04110 


7001 


04111 


3320 


04112 


5703 


04113 


0000 


04114 


1320 


04115 


7640 


04116 


4540 


04117 


5713 



NHNOLEi 



NFLGST^ 





TAD HORO 

5MA CLA 

JMP NFLGST 
JMS I FNEGL 
lAC 

OCA NFLAG 
JMP I NHNDLE 



/FETCH HIGH ORDER MANTISSA 
/IS IT «07 
/NO-CLEAR NFLAG 
/YES-NEGATE FAC 
/AND SET NFLAG 



/ROUTINE TO NEGATE FAC IF NFLAG IS NOT »0 



NCHK, 

TAD NFLAG 
SZA CLA 

JMS I FNEGL 
JMP I NCMK 



/LOC ALSO USED FOR TEMP STORAGE 

/IS NFLAG»0? 
/NO-NEGATE FAC 
/YES-RETURN 



4113 



NUM»NCHK 



/OS/8 BASIC RUNTIME SYSTEM 
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/••♦•••EXPONENTIAL****** 



04120 

04121 

ei4122 

04123 

04124 

04125 

04126 

04127 

04130 

04131 

04132 

04133 

04134 

0413S 

04136 

04137 

04140 

04141 

04142 

04143 

04144 

04145 

04146 

04147 

04150 

04151 

04152 

04153 

04154 

04155 

04156 

04157 



04160 
04161 



0000 EXPONl, 



4661 

4405 

4271 

4661 

4410 

4535 

1175 

4665 

4660 

4413 

4667 

4416 

4660 

4421 

4664 

1175 

4535 

1172 

4S34 

1175 

2044 

7000 

4662 

1172 

4660 

3474 

4665 

1313 

1044 

3044 

5720 

4120 



0000 
2427 



JMS I FMPYUK 

U062E 
JMS FRACT 
JMS I FMPYLK 

UN20V2 
JMS I FPUTL 

FPPTMl 
JMS I FSQRt 
JMS I FAODL 

EXPBl 
JMS I FDIVIU 

EXPAl 
JMS I FADOU 

EXPA0 
JMS I FSUBU 

FPPTMl 
JMS I FPUTL 

FPPTM2 
JMS I FGETL 

FPPTMl 
ISZ EXP 

NOP 
JMS I FDIVL 

FPPTM2 
JMS I FAOOL 

ONE 
JMS I FSORL 
TAD NUM 
TAD EXP 
OCA EXP 
JMP I EXPONl 



/LOC USED FOR TEMP STORAGE BY SIN.AHCTAN 
/Y»XL0G2(E) 

/GET FRACTIONAL PART OF Y 
/(FRACT10NCY))*(LN2/2) 

/SAVE Y 

/Y**2 
/Bl*Y**2 

/Al/CBl*Y**2) 

/A0*Al/C8l*Y**2) 

/A0-Y*A1/(B1*Y**2) 

/SAVE 

/GET Y 

/MULT, BY 2»2Y 

/2Y/tA0-Y*Al/tBl*V**2)) 

/1+2Y/(A0-Y*AI/(B1*V**2)) 

/tl*2Y/(A0-Y*Al/(Bl*Y**2))J**2»EXP(Y) 

/EXPCX)»(2**N)(EXPY) 

/FAC»EXPON(X) 



NFLAG»EXP0N1 
/CONSTANT THAT WOULDN'T FIT ELSEWHERE 
2427 



TOVPI, 



/, 6366198 



04162 6302 



6302 



# 



# 



/08/8 BASIC RUNTIME SYSTEM 
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04200 
04201 
04202 
04203 
04204 
0420S 
04206 
04207 
04210 
04211 
04212 
04213 
04214 
0421S 
04216 
04217 
04220 
04221 
04222 
04223 
04224 
0422S 
04226 
04227 
04230 
04231 
04232 
04233 
04234 
04235 
04236 
04237 
04240 
04241 
04242 
04243 
04244 
04245 
04246 
04247 
04250 
04251 
04252 
04253 
04254 
04255 
04256 
04257 
04260 
04261 
04262 



/•***«t*ARC TANGENT****** 



4661 
4535 
1175 
4762 
3474 
1045 
7710 
5220 
4534 
3474 
4760 
1175 
4535 
1175 
7001 
3263 
4534 
1175 
4764 
4535 
1172 
4757 
4446 
4761 
4443 
4757 
4440 
4757 
1172 
4761 
4435 
4757 
4432 
4757 
1172 
4761 
4427 
4757 
4424 
4756 
1175 
1263 
7650 
5257 
4763 
4402 
4662 
5600 
4103 
4113 



ATANr 

JMS I NHNOLL 
JMS I PPUTM 

fPPTMl 
JMS I FSUBM 

ONE 
TAO HORO 
SPA CLA 

JMP ARGPOL 
JMS I FGETM 

ONE 
JMS I FDIVM 

FPPTMl 
JMS I FPUTM 

FPPTMl 
lAC 
ARGPOLr OCA 6T1FLG 
JMS I FGETM 

FPPTMl 
JMS I FSQRM 
JMS I FPUTM 

FPPTM2 
JMS I FAODM 

ATANB3 
JMS 1 FDIVIM 

ATANA3 
JMS I FAODM 

ATANB2 
JMS I FAOOM 

FPPTM2 
JMS I FDIVIM 

ATANA2 
JMS I FADDM 

ATANBl 
JMS I FADDM 

FPPTM2 
JM8 I FDIVIM 

ATANAl 
JMS I FADOM 

ATANB0 
JMS I FMPYM 

FPPTMl 
TAD 6T1FLG 
SNA CLA 

JMP NGT 
JMS 1 FSUBIM 

PI0V2 
NGT, JMS I NCHKL 

JMP I ATAN 
NHNDLL» NHNOLE 
NCHKL, NCHK 



/IF X«0,SET NFLAG AND NEGATE 
/SAVE X 

/X-1 

/GET HI MANTISSA 
/WAS X>t? 
/NO-CLEAR GTIFLG 
/Y£8-ATAN(X)»PI/2»ATANC1/X3 

/l/X 



/SET GTIFLG 

/GET X OR l/X 

/V**2 
/SAVE 

/Y**2«B3 

/A3/CY**2*B3) 

/B2*A3/(Y**2*B3) 

/Y**2*B2*A3/(Y**2*83) 

/A2/CY**2*B2*A3/CY**2*83)) 

/B1*A2/(Y**2*B2*A3/(Y**2*B3)) 

/Y**2*Bl*A2/(Y**2*82*A3/(Y**a*B3)) 

/Al/(Y**2*Bl*A2/(Y**2*B2*A3/CY**2*B3)n 

/B0*Al/(Y**2*Bl*A2/(Y**2*B2*A3/(Y**a*B3)n 

/ATAN(Y)»X*(60*Al/CY«*2*Bl*Ag/(Y«*2*a2*A3/CY«*2*83)n) 
/MAS X>1? 

/NO-TEST IF X<ia? 
/ATAN(X)»PI/a-ATANCl/X) 

/IF NFLAG SET, NEGATE FAC 
/FAC»ATAN(X) 
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# 



4200 



/******NAPERIAN LOGARITHM****** 
GTFLGaATAN 



04263 


0000 


LOG, 




04264 


1045 


TAD HORO 




0426S 


7550 


SPA SNA 


/X<0 OR X«0? 


04266 


5765 


JMP I ARTRAP 


/YES-TAKE ILLEGAL ARGUMENT TRAP 


04267 


7106 


CLL RTL 




04270 


7450 


SNA 


/NO-HORD»2000? 


04271 


1044 


TAD EXP 


/YES-EXP»17 


0tt272 


7041 


CMA lAC 




04273 


7001 


lAC 




04274 


7450 


SNA 




04275 


1046 


TAO LORD 


/YES-LORO»0? 


04276 


7640 


SZA CLA 




04277 


5304 


JMP POLYNL 


/NO-ARG IS LEGAL AND NOT 1 


04300 


3044 


OCA EXP 




04301 


3046 


OCA LORD 




04302 


3045 


LTRPRTr OCA HORO 




04303 


5663 


JMP I LOG 


/YES-LOG(1)«0 


04304 


1044 


POLYNL, TAD EXP 




0430S 


3200 


OCA GTfLG 


/SAVE EXPONENT FOR LATER 


04306 


3044 


OCA EXP 


/ISOLATE MANTISSA IN FAC 


04307 


4535 


JMS I FPUTM 


/SAVE F 


04310 


U75 


PPPTMl 




04311 


4757 


JMS I FADOM 


/F*SQR(.5) 


04312 


4451 


SQRP5 




04313 


4535 


JMS I FPUTM 


/SAVE 


04314 


1172 


FPPTM2 




0431S 


4534 


JMS I FGETM 




04316 


1175 


FPPTMl 




04317 


4762 


JMS I FSU8M 


/F-SQRC,S) 


04320 


4451 


SQRP5 




04321 


4760 


JMS I FOIVM 


/Z»FtS0R(,5)/F-S0R(.5) 


04322 


1172 


FPPTM2 




04323 


4535 


JMS I FPUTM 




04324 


1175 


FPPTMl 




04325 


4764 


JMS I FSQRM 


/Z**2 


04326 


4535 


JMS I FPUTM 




04327 


1172 


FPPTM2 




04330 


4756 


JMS I FMPYM 


/C5(Z**2) 


04331 


4462 


L0GC5 




04332 


4757 


JMS I FADOM 


/C3*C5(Z**2) 


04333 


4457 


L0GC3 




04334 


4756 


JMS I FMPYM 


/C3(Z**2)*C5CZ**4J 


04335 


1172 


FPPTM2 




04336 


4757 


JMS I FAODM 


/C1*C3(Z**2)*C5(Z**4) 


04337 


4454 


LOGCl 




04340 


4756 


JMS I FMPYM 


/C1(Z)*C3CZ**3)*C5(Z**51 


04341 


1175 


FPPTMl 




04342 


4762 


JMS I FSUBM 


/ClCZ)*C3(Z**3)*C5{Z**5)-l/2aL0G2CF) 


04343 


4465 


ONtHAF 




04344 


4535 


JMS I FPUTM 


/SAVE L0G2(F) 



• 



# 



• 



# 
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04345 


1172 




FPPTM2 




04346 


1200 




TAO GTFLG 


/I 


04347 


3044 




DCA EXP 


/SET UP FLOAT 


04350 


4541 




JM8 1 FLOATM 




04351 


4757 




JMS I FAOOM 


/I*L0G2(F) 


04352 


1172 




FPPTM2 




043S3 


4756 




JMS I FMPVM 


/tI*L0G2(FJJ*L0GEta)»L0GECX) 


04354 


4470 




I.N2 




04355 


5663 

4263 




JMP I LOG 
GT1FLG«L0G 


/FAC»LN(X) 


04356 


5600 


FMPVM, 


FFMPV 




00357 


6000 


FAODM, 


FFADO 




04360 


5722 


FDIVM, 


FFOIV 




04361 


5412 


FOIVIM, 


FFDIVl 




04362 


6117 


FSUBM, 


FF8UB 




04363 


5400 


FSUBIM, 


FFSUBl 




04364 


6347 


FSQRM, 


FF8Q 




04365 


6360 


ARTRAP, 


LM 






0134 


FGETMiFGETL 






0141 


FLOATMs 


FLOATU 






0135 


FPUTM«FPUTU 
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/CONSTANTS USED BY VARIOUS FUNCTIONS 



04366 


0001 


SINAI, 


1 


/I. 5707949 


04367 


3110 




3110 




04370 


3747 




3747 




04371 


0000 


SINA3) 





/•, 64592098 


04372 


5325 




5325 




04373 


1167 




1167 




04374 


7775 


SINAS, 


7775 


/.0794B766 


04375 


2426 




2426 




04376 


2466 




2466 




04377 


7771 


5INA7, 


7771 


/-. 004362476 


04400 


5610 




5610 




0440t 


3164 




3164 




04402 


0001 


PI0V2, 


I 


/I, 5707963 


04403 


3110 




3110 




04404 


3756 




3756 




04405 


0001 


L0G2E, 


1 


/I, 442695 


04406 


2705 




2705 




04407 


2434 




2«34 




04410 


7777 


LN20V2I 


7777 


/. 34657359 


04411 


2613 




2613 




044)2 


4415 




4415 




04413 


0006 


EXPBl, 


6 


/60. 090191 


04414 


3602 




3602 




04415 


7054 




7054 




04416 


0012 


EXPAl, 


12 


/••601. 80427 


04417 


5514 




5514 




04420 


3104 




3104 




04421 


0004 


EXPA0, 


4 


/12, 015017 


04422 


3001 




3001 




04423 


7301 




7301 




04424 


7776 


ATANBOr 


7776 


/. 17465544 


04425 


2626 




2626 




04426 


6157 




6157 




04427 


0002 


ATANAli 


2 


/3. 7092563 


04430 


3553 




3553 




04431 


1071 




1071 




04432 


0003 


ATANHli 


3 


/6. 762139 


04433 


3303 




3303 




04434 


0670 




670 




0443S 


0003 


ATANA2, 


3 


/-7, 10676 


04436 


4344 




4344 




04437 


5267 




5267 




04440 


0002 


ATANB2, 


2 


/3. 3163354 


04441 


3241 




3241 




04442 


7554 




7554 




04443 


7777 


ATANA3I 


7777 


/., 26476862 


04444 


5703 




5703 




04445 


4040 




4040 




04446 


0001 


ATANB3i 


1 


/I, 44863154 


04447 


2713 




2713 




04450 


3140 




3140 




04451 


0000 


SORPS, 





/. 7071068 


04452 


2650 




2650 





• 



/08/8 BASIC RUNTIME SYSTEM 



04453 
04454 
04455 
04456 
04457 
04460 
04461 
04468 
04463 
04464 
04465 
04466 
04467 
04470 
04471 
04472 



1170 

0002 

2705 

2440 

0000 

3661 

0566 

0000 

2312 

5525 

0000 

2000 

0000 

0000 LN2, 

2613 

4415 

4000 
4053 
4200 
4263 
4120 



LOGCl, 



1.06C4, 



10GC5, 



ONEHAF, 



# 
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1170 






2 




/2, 8653913 


2705 






2440 











/. 9614706 


3661 






566 











/. 59897665 


2312 






5525 











/.5 


2000 


















/, 6931472 


2613 






4415 






FFSIN 


• SIN 




FFCOS 


■ COS 




FFATNi 


lATAN 




FFLOGi 


■LOG 




FFEXPi 


lEXPONl 
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4900 ««5ee 

/**o***FIX***«** 
/ROUTINE TO FIX ANT FLOATING NUMBER IN FAC BETWEEN -2047 AND ♦SPa? TO 
/A TWEUVE BIT INTEGER AND LEAVE RESULT IN EXP (LOC 44) 



04S00 


0000 


FFIX» 





04S01 


7200 




CLA 


04502 


1044 




TAD EXP 


04S03 


7540 




SZA SMA 


04504 


5307 




JMP ,*3 


04S0S 


7200 


FTRPRTi 


CLA 


04S06 


5326 




JMP FlXDNE+1 


04507 


1330 




TAD M13 


04510 


7450 




SNA 


04511 


5325 




JMP FIXDNE 


04512 


7500 




SMA 


04513 


5732 




JMP I OTRAPA 


04514 


3044 




OCA EXP 


04515 


7100 


FIXLP» 


CLL 


04516 


1045 




TAD HORD 


04517 


7510 




SPA 


04520 


7020 




CML 


04521 


7010 




RAR 


04522 


3045 




OCA HORD 


04523 


2044 




ISZ EXP 


04524 


5315 




JMP FIXLP 


04525 


1045 


FIXDNE, 


TAD HORD 


04526 


3044 




OCA EXP 


04527 


5700 




JMP I FFIX 


04530 


7765 


M13» 


-13 


04531 


0013 


C13. 


13 


04532 


1637 


OTRAPAi 


FO 



/FETCH EXPONENT 
/IS NUMBER «1? 
/NO-CONTINUE ON 

/YES-FIX IT TO ZERO 

/SET BINARY POINT AT II 

/PLACES TO RIGHT OF CURRENT POINT? 

/NO-NUMBER IS ALREADY FIXED THEN, 

/YES-IS NUMBER TOO LARGE TO FIX? 

/YES-TAKE OVERFLOW TRAP 

/NO-SET SCALE COUNT 

/0 IN LINK 

/GET HIGH MANTISSA 

/IS IT «0? 

/YES-PUT A I IN LINK 

/SCALE RIGHT 

/SAVE 

/DONE YET? 

/NO 

/YES-ANSWER IN AC 

/RETURN WITH ANSWER IN 44 

/RETURN 

/-U DECIMAL 

/ll DECIMAL 

/ADDRESS OF VECTOR FOR OVERFLOW TRAP 



/***** AFLOAT****** 

/ROUTINE TO FLOAT ANY INTEGER IN EXP (LOC 44) INTO FAC 



04533 0000 FFLOATf 



04534 


1044 


TAD EXP 




04535 


3045 


OCA HORD 


/PUT NUMBE 


04536 


3046 


DCA LORD 


/CLEAR LOW 


04537 


1331 


TAD C13 


/11(10J IN 


04540 


3044 


OCA EXP 




04541 


4536 


JMS I FNORL 


/NORMALIZE 


04542 


5733 


JMP I FFLOAT 


/RETURN 



) IN HI MANTISSA 
MANTISSA 
rO EXPONENT 



# 



# 
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/RANDOM NUMBER GENERATOR 



04543 


0000 


RND, 







04544 


1762 




TAO 


I RSEEOL 


04545 


3042 




OCA 


TEMP3 


04546 


1363 




TAO 


K73 


04547 


4521 




JMS 


I MPYLNK 


84550 


3762 




OCA 


I RSEEDL 


04S51 


1762 




TAD 


I RSEEDL 


04552 


7110 




CLU 


RAR 


04553 


3045 




OCA 


HORO 


04554 


3044 




OCA 


EXP 


04555 


7010 




RAR 




04556 


3046 




OCA 


LORD 


04557 


3041 




OCA 


ACl 


04560 


4536 




JMS 


I FNORL 


04561 


5513 




JMP 


I ILDOPL 


04562 


2346 


RSEEOLr 


RSEED 


04563 


0073 


K73, 


73 





/GET SEED 

/PUT IN MULTIPLY OPERAND 

/MULTIPLY SEED BY 73 fX^^t t^f / 

/USE LOW ORDER 12 BITS AS NEW SEED 
/LOW ORDER OF PRODUCT ALSO SERVES 
/AS RANDOM NUMBER 
/SET SIGN TO a AND STORE AS HORD 



/USE 12 BITS AS MANTISSA 
/CLEAR FPP OVERFLOW 
/AND NORMALIZE 
/DONE 
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///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////// 
////////////// OVERLAY 2- STRING FUNCTIONS ///////////////// 
///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////// 



W 



fy 



\ 



ii 



0001 


FIELD I 


1000^ 


*20e0 


__„,—-"' 


NOPUNCH 


3400 


•OVERLAY 




ENPUNCH 




IFNZRO EAE < 




NOPUNCH 

> 


/CMRS 


FUNCTION 


/RETURNS I CHAR STRING 



13400 


0000 


CHR, 





13401 


4S14 




JMS I INTL 


13402 


4544 




JMS I BSWL 


13403 


3621 




OCA I SACL 


13404 


7040 




CMA 


mzi 


3032 




OCA STRLEN 


13406 


5326 




JMP RETMOO 






/ASC 


FUNCTION 






/RETURNS DECIMAL ASCII 


13407 


0000 


ASC» 





13410 


1621 




TAO I SACL 


13411 


4S44 




JMS I BSWL 


13412 


0075 




ANO K0077 


13413 


5620 




JMP I FLOATS 



FOR THE VALUE OF X 



/FIX X TO 12 BIT INTEGER 

/TREAT THE RIGHTMOST 6 BITS AS CHAR 

/ANO PUT INTO SAC 

/SET SAC LENGTH TO 1 
/SET TO SMODE ANO RETURN 



FOR 1 CHAR STRING IN FAC 



/GET FIRST TWO CHARS OF STRING 

/WE WANT LEFT CHAR 

/SO ISOLATE IT 

/FLOAT RESULT INTO FAC ANO RETURN 



/LEN FUNCTION 
/RETURNS LENGTH OF SAC 



IN FAC 



13414 0000 LEN, 

13415 1032 TAD STRLEN 

13416 7041 CIA 

13417 5620 JMP I FLOATS 



/LENGTH OF STRING IN SAC 

/MAKE POSITIVE 

/FLOAT RESULT AND RETURN 



13420 4144 FLOATBi FLOATS 

13421 0321 SACLf SAC 



« 
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/STR* FUNCTION 

/RETURNS ASCII STRING FOR NUMBER IN FAC 



1S422 


0000 


STR, 





13023 


4657 




JMS I ASCOL.K 


13424 


3032 




DCA STRLEN 


13425 


7101 




CLU lAC 


13426 


IIU 




TAD SACPTR 


13427 


4526 




JMS I STNINL 


13430 


4S60 




JMS 1 STHRST 


13431 


2061 




ISZ TEMP10 


13432 


1461 




TAD I TEMP10 


13433 


1261 




TAD MINUSP 


13434 


7640 




SZA CL.A 


13435 


5240 




JMP STSLP 


13436 


1260 




TAD CCC240 


1343T 


3461 




DCA I TEMP10 


13440 


2061 


STSLP, 


ISZ TEMP10 


13441 


1461 




TAO I TEMP10 


13442 


1055 




TAD M215 


13443 


7450 




SNA 


13444 


5326 




JMP RETMOO 


13445 


1256 




TAD MCRMAL 


13446 


7650 




SNA CLA 


1344T 


5240 




JMP STSLP 


134S0 


1461 




TAO I TEMPIB 


13451 


4530 




JMS I 8TH 


13452 


7240 




CLA CMA 


13453 


1032 




TAD STRLEN 


13454 


3032 




OCA STRLEN 


13455 


5240 




JMP STSLP 


13456 


7616 


MCRMAL» 


7616 


1345T 


1260 


ASCOLK, 


ASCOUT 


13460 


0240 


CCC240, 


240 


13461 


7525 


MINUSP, 


-253 



/GET ASCII FOR FAC INTO INTERMEDIATE BUFFER 
/ZERO FAC 



/INITIALIZE STH TO SAC 
/SET OF TO STH TO 
/MOVE PAST LEADING SPACE 
/GET SIGN OF NUMBER 
/IS IT "♦" 

/NO-IT IS "-" SO LEAVE IT ALONE 
/YES-REPLACE IT WITH A SPACE 

/BUMP POINTER 

/GET CHAR FROM INTERMEDIATE BUFFER 

/IS IT CR? 

/YES-RETURN IN SMOOE 
/IS IT ALTMODE? 

/YES-IGNORE IT 
/NO-GET CHAR AGAIN 
/PUT IN SAC 

/"BUMP" SAC COUNTER" 
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/VAU FUNCTION 

/RETURNS NUMBER IN F*C FOR STRING IN SAC 



13462 


0000 


VAL, 







13463 


7101 




CLL 


lAC 


13464 


nil 




TAD 


SACPTR 


13465 


4527 




JMS 


I LDHINL 


13466 


4557 




JMS 


I LOHRST 


1346T 


1032 




TAD 


STRLEN 


13470 


3222 




DCA 


VALCNT 


13471 


1301 




TAD 


STCGTJ 


13472 


3700 




DCA 


I INPTCL 


13473 


4677 




JMS 


I FFINUK 


13474 


1302 




TAD 


GfTCHG 


13475 


3700 




DCA 


I INPTCL 


13476 


5513 




JMP 


I ILOOPL 


13477 


5200 


FFINUK, 


FFIN 


13500 


5350 


INPTCL, 


INPUT+1 


13501 


4554 


STCGTJr 


JMS 


I VALIK 


13502 


4542 


GETCHG, 


JMS 


I GETCHL 


13503 


0000 


VA|.GET» 







13504 


1222 




TAD 


VALCNT 


13505 


7650 




SNA 


CLA 


13506 


5323 




JMP ENVAL. 


13507 


4531 




JMS 


I LOH 


13510 


3053 




DCA 


CHAR 


13511 


1053 




TAD 


CHAR 


13512 


1106 




TAD 


KM40 


13513 


7710 




SPA 


CLA 


13514 


1076 




TA[ 


) K0100 


13515 


1077 




TAD 


K200 


13516 


1053 




TAD 


CHAR 


13517 


3053 




OCA 


CHAR 


13520 


2222 




I8Z 


VALCNT 


13521 


7000 




NOP 




13522 


5703 




JMP 


I VALGET 


13523 


1054 


ENVAUi 


TAD 


K215 


13524 


3053 




DCA 


CHAR 


13325 


5703 




JMP 


I VALGET 




3422 


VALCNT" 


STR 




13526 


7001 


RETNODf 


lAC 




13527 


3063 




DCA 


MOOESW 


13530 


5513 




JMP 


I ILOOPL 



/INITIALIZE LOH TO SAC 



/COUNT OF CHARS TO INPUT 

/JMS TO VALGET 

/PUT IN INPUT ROUTINE IN PLACE OF KR8 

/CALL FPP INPUT ROUTINE 

/JMS TO GETCH 

/RESTORE IN INPUT ROUTINE 

/DONE 



/GET # OF CHARS LEFT 

/ANY MORE? 

/N0"5END A CR TO FPP INPUT ROUTINE 

/YES-HET CHAR 

/SAVE 

/SUBTRACT 40 

/IS CHAR <40? 

/YES-IT IS IN 300 SERIES 

/TURN ON PARITY BIT 

/BUILD a BIT CHAR 

/DECREASE COUNT 

/RETURN WITH CHAR IN AC 



/SET TO STRING MODE 
/RETURN 



• 



# 



• 
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13600 


0000 


13601 


1020 


13602 


3203 


13603 


3603 


13604 


1031 


13605 


7104 


13606 


7620 


13607 


5213 


13610 


1667 


13611 


3040 


13612 


5215 


13613 


1670 


13614 


3040 


1S61S 


1040 


13616 


7640 


13617 


1276 


13620 


3032 


13621 


6201 


13622 


nil 


13623 


3015 


13624 


1040 


1362S 


7106 


13626 


7006 


13627 


7004 


13630 


0074 


13631 


4260 


13632 


3415 


13633 


1040 


13634 


7112 


1S63S 


7010 


13636 


0271 


13637 


4260 


13640 


4544 


13641 


3007 


13642 


1007 


13643 


0075 


13644 


1274 


13645 


3415 


13646 


1007 


13647 


0104 


13650 


1273 


13651 


3415 


136S2 


1040 


13653 


0275 



*2200 

NOPUNCH 

*OVERl.AY*200 

ENPUNCH 

IPNZRO EAE < 

NOPUNCH 

> 



/DATE FUNCTION 



DATEi 



N7666, 

DATCOMi 



TAD CDflO 
DCA .*1 

TAD PSFLA6 
CUL RAL 
8NL CLA 

JMP N7666 
TAD I L7466 
OCA TEMPI 
JMP OATCOM 

TAD I 1.7666 
DCA TEMPI 
TAD TEMPI 
SZA CUA 

TAD KKM10 
OCA 8TRLEN 
COP 

TAD 8ACPTR 
DCA XR5 
TAD TEMPI 
CtU RTt 
RTL 
RA(. 

AND K0017 
JMS A8C0N 
DCA I XR5 
TAD TEMPI 
CLU RTR 
RAR 

AND K0037C 
JMS ASCON 
JMS I 8SWL 
DCA TEMP2 
TAD TEMP2 
AND K0077 
TAD K5700 
DCA I XR5 
TAD TEMP2 
AND K7700 
TAD K0057 
DCA I XR5 
TAD TEMPI 
AND K0007C 



/CDF TO FIELD THAT 17600 SITS IN 

/OF TO 17600 FIELD 

/GET RESIDENT STATUS FLAG 

/TD8/E BIT TO LINK 

/IS P6 17600 AT N7400? 

/NO-GET DATE FROM N766fc 

/VES-GET DATE 

/SAVE 



/SAVE 

/GET DATE AGAIN 

/IS IT EMPTY? 

/NO-SET STRING COUNT TO 6 

/YES-RETURN NULL STRING 



/POINTS TO SAC 



/MONTH TO BITS 8-11 
/ISOLATE 

/CONVERT TO ASCII 
/PUT IN SAC 
/DATE 

/DAY TO BITS7-11 
/ISOLATE 

/CONVERT TO ASCII 
/SWAP DIGITS 



/DAY DIGIT 1 

/»/N» 

/PUT IN STRING 

/DAY DIGITS AGAIN 

/DAY DIGIT 2 

/"N/" 

/ADD TO STRING 

/DATE 

/YEAR 
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13654 


4260 




JMS ASCON 


13655 


1272 




TAD K0700 


13656 


341S 




DCA I XR5 


13657 


566S 




JMP I RETMDL 


13660 


0000 


ASCON, 





13661 


1266 




TAD OATABA 


1366a 


3042 




OCA TEMP3 


13663 


1442 




TAD I TEMP3 


13664 


5660 




JMP I ASCON 


1366S 


3526 


RETMOU* 


RETMOD 


13666 


4525 


DATABAf 


OATTAB-l 


13667 


7466 


L7466, 


7466 


13670 


7666 


L7666, 


7666 


13671 


0037 


K0037C* 


37 


13672 


0700 


K0700, 


700 


13673 


0057 


K00S7, 


57 


13674 


5700 


K5700, 


5700 


13675 


0007 


K0007C> 


7 


13676 


7770 


KKM10, 


-10 



/"7N" 

/FINISH OFF STRING 

/RETURN IN SMOOE 



/AOOR OF DATE TABLE 

/POINTER TO RIGHT SET OF DIGITS 

/GET TWO ASn DIGITS FROM TABLE 



# 
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/TRACE FUNCTION PRINTER, WHEN TRACE IS ENABLED, THIS ROUTINE 
/PRINTS THE LINE # EACH TIME IT IS STORED 



/MAKE LINE # INTO FIVE DIGITS 

/PRINT "X" 

/PRINT A SPACE 

/AOOR OF FIRST OIGIT-1 

/IN KR5 

/GET DIGIT OF LINE NUMBER 

/SAVE IT 

/COMPARE IT TO 
/IS IT A 0? 

/YES-IGNORE LEADING ZEROES 
/NO-GET CHAR AGAIN 

/IS IT A CR? 

/YES-LINE NUMBER IS PRINTED 

/NO-GET CHAR A THIRD TIME 

/TYPE IT 

/GET NEXT CHAR 

/AND LOOP 

/FOLLOW LINE # WITH A SPACE 

/TYPE ANOTHER "X" 

/TYPE,CR,LF 

/EMPTY RING BUFFER OF TRACE NUMBER 
/DONE 



13*77 


0000 


TPRINTf 





13700 


4741 




JM8 I LMAKEL 


13701 


1342 




TAD KEX 


13702 


4522 




JM8 I XPUT 


13703 


1347 




TAD CC240 


1370a 


4522 




JM8 I XPUT 


13705 


1345 




TAD 0I61A 


13706 


3015 




OCA XR5 


13707 


1415 


I6S, 


TAD I XR5 


13710 


3277 




OCA TPRINT 


13711 


1346 




TAO MM260 


13712 


1277 




TAO TPRINT 


13713 


7650 




SNA CLA 


13714 


5307 




JMP IGS 


13715 


1277 


PREST, 


TAD TPRINT 


13716 


105S 




TAD M215 


13717 


7650 




SNA CLA 


13720 


5326 




JMP TDONE 


13721 


1277 




TAO TPRINT 


13722 


4522 




JMS I XPUT 


13723 


1415 




TAO I XR5 


13724 


3277 




OCA TPRINT 


13725 


5315 




JMP PREST 


13726 


1347 


TDONE, 


TAD CC240 


13727 


4522 




JMS I XPUT 


13730 


1342 




TAD KEX 


13731 


4522 




JMS I XPUT 


13732 


1343 




TAO CCR 


13733 


4522 




JMS I XPUT 


13734 


1344 




TAO CLF 


13735 


4522 




JMS I XPUT 


13736 


4510 




JMS I PRINT 


13737 


5336 




JMP .-1 


13740 


5513 




JMP I ILOOPL 


13741 


4067 


LMAKEL, 


LMAKE 


13742 


0245 


KEX, 


245 


13743 


0215 


CCR, 


215 


13744 


0212 


CLF» 


212 


13745 


4133 


DIGlAi 


0161-1 


13746 


7520 


MM260, 


-260 


13747 


0240 


CC240, 


240 
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*a4B0 % 

NDFtTNCM 

«OVERLAY4'40e 

ENPUNCH 

IfHlKO EAE < 

NOPUNCM 

> 



/TRACE FUNCTION-ROUTINE TO TURN TRACE ON AND OFF 



14000 


0000 


TRACE, 





14001 


1045 




TAO HORO 


14002 


76S0 




SNA CLA 


14003 


S210 




JMP TOFF 


14004 


1212 




TAD KNOP 


1400S 


3607 




OCA I HOOKL 


14006 


5513 


TRRESTi 


JMP I ILOOPL 


14007 


1144 


HOOKU) 


TRHOOK 


14010 


1206 


TOFF» 


TAD TRREST 


14011 


5205 




JMP TRREST-l 



/GET HI MANTISSA OF ARG 

/WHICH? 

/FOR 0,TURN TRACE OFF 

/TURN TRAC ON 

/BY NOP ING INSTRUCTION AT TRHOOK 



/TURN OFF TRACE 

/BY RESTOREING JMP TO TRHOOK 



14012 7000 KNOPi 



7000 



/ERROR ROUTINE 



14013 


0000 


ERRORRf 




14014 


4510 


JMS 


I PRINT 


14015 


5214 


JMP .-1 


14016 


1354 


TAO 


ETABA 


14017 


3014 


DCA 


XR4 


14020 


1414 


FERRUPi TAO 


I XR4 


14021 


3040 


OCA 


TEMPI 


14022 


1040 


TAD 


TEMPI 


14023 


4544 


JMS 


I BSWL 


14024 


0075 


AND 


K0077 


14025 


1266 


TAD 


K0300 


14026 


3321 


DCA 


ESTRNG 


14027 


1040 


TAD 


TEMPI 


14030 


0075 


AND 


K0077 


14031 


1266 


TAO 


K0300 


14032 


3322 


OCA 


ESTRNG+1 


14033 


1414 


TAD 


I XR4 


14034 


1657 


TAO 


I ERRET 


14035 


7640 


SZA 


CiA 


14036 


5220 


JMP FERRLP 


14037 


4267 


JMS 


LMAKE 


14040 


1343 


TAO 


ESTRA 


14041 


3015 


OCA 


XR5 


14042 


1415 


ETLOP, TAD 


I XR5 


14043 


7510 


SPA 




14044 


5247 


JMF 


' FATCHK 



/PURSE TTY RING BUFFER 
/BEFORE PRINTING ERROR 
/ADOR OF ERROR TABLE 
/POINTS INTO ERROR TABLE 
/GET 2 CHAR ERROR CODE 
/SAVE 

/FIRST CHAR TO RIGHT 

/STRIP TO 6 BIT 

/MAKE e BIT (LETTERS ONLY ALLOWED) 

/PUT IN MESSAGE 

/2 CHAR CODE AGAIN 

/SECOND CHAR 

/MAKE LETTER 

/PUT IN MESSAGE 

/GET ERROR CODE +1 

/COMPARE AGAINST RETURN ADORESS 

/MATCH? 

/NO-TRY NEXT ONE 

/MAKE THE LINE # INTO DECIMAL DIGITS 

/ADOR OF MESSAGE 

/GET MESSAGE CHAR 

/DONE? (MESSAGE ENONS WITH . NUMBER 

/YES-DETERMINE ERROR TYPE 



• 



/OS/a BASIC RUNTIME SYSTEM 



14045 


4522 




JM8 I XPUT 


14046 


5242 




JMP ETLOP 


14047 


7200 


FATCHK, 


CLA 


14050 


16S7 




TAD I ERRET 


14051 


3213 




DCA ERRORR 


14052 


1355 




TAD MPATAC 


14053 


1014 




TAO XR4 


14054 


7700 




SMA CLA 


14055 


5613 




JHP I ERRORR 


14056 


5660 




JMP 1 STOP! 


14057 


1460 


ERRETi 


ERRDIS 


14060 


0561 


8T0PI, 


PSTOPN. 


14061 


0000 


MAKED, 





14062 


0074 




AND K0ei7 


14063 


1265 




TAD K260 


14064 


5661 




JMP I MAKED 


14065 


0260 


K260I 


260 


14066 


0300 


K0300I 


300 



PAU8-V7 10/24/72 PAGE 72-1 
/NO-PUT OMAR IN RING BUFFER 



/GET RETURN ADDRESS 
/AND STORE IT 
/-ADDR OF FATAL ERRORS 
/ADDS OF THIS ERROR 
/FATAL ERROR? 
/NO-NEXT INST 
/YES-TERMINATE RUN 



/ISOLATE BCD DIGIT 
/MAKE ASCII DIGIT 



/OS/a BASIC RUNTIME SYSTEM 
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/SUBf<OUTINE LMAKE-MAKE5 THE CURRENT LINE NUMBER INTO FIVE DIGITS 
/STARTING AT DIG! 



H0fc7 


0000 LMAKE, 






laere 


106S 


TAD 


LINEHI 


/VE8IGET HI UlNE # 


uan 


4261 


JMS 


NAKED 


/GET DIGIT 2 


14072 


3335 


DCA 


DIG2 


/PUT IN MESSAGE 


14073 


106S 


TAD 


tlNEHI 




14074 


7112 


CLL 


RTR 




14075 


7012 


RTR 






14076 


4261 


JMS 


NAKED 


/GET DIGIT 1 


14077 


3334 


DCA 


OIGl 


/AND PUT IN MESSAGE 


14100 


1066 


TAD 


UlNELO 


/DOGOTS i,H, AND S 


14101 


4261 


JMS 


NAKED 


/GET DIGIT 5 


14102 


3340 


OCA 


DIGS 




14103 


1066 


TAD 


UlNELO 




14104 


7112 


CUL 


RTR 




14105 


7012 


RTR 






14106 


4261 


JMS 


NAKED 


/GET DIGIT 4 


14107 


3337 


OCA 


DIG4 


/AND PUT IN MESSAGE 


14110 


1066 


TAO 


LINEUO 




14111 


7104 


CLL 


RAL 




14112 


7006 


RTL 






14113 


7006 


RTL 






14114 


4261 


JMS 


NAKED 


/GET DIGIT 3 


14115 


3336 


DCA 


DIG3 


/MESSAGE NOW COMPLETE 


14116 


5667 


JMP 


I LMAKE 





/QS/8 BASIC RUNTIME SYSTEM 



# 
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/ERROR MES8A6E 



iftiiT 


0215 


EME8S, 


215 






14120 


0212 




212 






14121 


0000 


ESTRNGf 


0000 






14122 


0000 




0000 






14123 


0240 




240 






14124 


0301 




301 


/A 




14125 


0324 




324 


/T 




14126 


0240 




240 






14127 


0314 




314 


/U 




14130 


0311 




311 


/I 




14131 


0316 




316 


/N 




14132 


0305 




305 


/E 




14133 


0240 




240 






14134 


0000 


OIGlf 









14135 


0000 


0I62» 









14136 


0000 


DIG3r 









14137 


0000 


DI64, 









14140 


0000 


0I65» 









14141 


0215 




215 






14142 


0212 




212 






14143 


4116 


ESTRA, 


EMESS-l 


/MINUS NUMBER TO END ABOVE ME 






/ROUTINE TO 


FLOAT FAC 


AND RETURN 


14144 


3045 


FUOATSi 


DCA 


HORD 


/NUMBER TO BE FLOATED IN HORO 


14145 


3046 




OCA 


UORD 


/CLEAR LORD 


14146 


3007 




OCA 


TEMP2 


/CLEAR FPP OVERFLOW 


14147 


1353 




TAO 


CC13 


/SET EXP TO 11 


14150 


3044 




OCA 


EXP 




14151 


4536 




JHS 


I FNORL 


/NORMALIZE 


14152 


5513 




JMP 


I lUOOPL. 


/RETURN 


14153 


0013 


CC13, 


13 
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/ERROR TABLE 
/ENTRY FORMAT- 
/ 



S CHA« 6-BIT ERROR CODE (LETTERS ONLY) 
•(AOOR OF CALL)-l 



i7-i 



uiss 

14156 
U157 
14160 
14161 
14162 
14163 
14164 
14165 
14166 
1416T 
14170 
14171 
14172 
14173 
14174 
14175 
14176 
14177 
14200 
14201 
14202 
14203 



14206 
14207 
14210 
14211 



14214 
14215 
14216 
14217 
14220 
14221 
14222 
14223 
14224 



4155 
3524 
0602 
3765 
0722 
1240 
2622 
4774 
2325 
7154 
0405 
7220 
0506 
7217 
1705 
6264 
0615 
6153 
0617 
6140 
0616 
5772 
2303 
5545 



14204 0611 

14205 5470 



0401 
5461 
0723 
5442 



14212 2322 

14213 4647 



2327 
4515 
2001 
3362 

0603 
4336 
0311 
4155 
0314 



ETABA, 

MFATAL» 

ETAB, 



14J25...^ilAli.»„ 

ti4226 _J44*— 

\T^4s«^h 14230 0417 

14231 3722 

14232 0605 

14233 3665 

14234 0217 



ETAB-1 

-EFATAL 

0602 

-FB-l 

0722 

-GR-1 

2622 

-VR-1 

2325 

-8U-1 

0405 

i>DE-l 

0506 

-EF-1 

1705 

• 0E»1 
0615 
-FM-1 
0617 
-FO-1 
0616 
-FN-1 
2303 

• SC-1 
0611 
-Fl-1 
0401 
-DA-1 
0723 
-GS-1 
2322 
-SR-1 
2327 
-SW-1 
2001 
-PA-1 
0603 
-FC-1 
0311 
-CI-l 
0314 

0417 

.00-1 

0605 

-FE-1 

0217 



/F8 

/ATTEMPT TO OPEN AN ALREADY OPEN FILE 
/GR 

/RETURN WITHOUT A GOSUB 
/VR 

/ATTEMPT TO READ VARIABLE LENGTH FILE 
/SU 

/SUBSCRIPT ERROR 
/OE 

/DEVICE DRIVER ERROR 
/EF 

/LOGICAL EOF 
/OE 

/DRIVER ERROR WHILE OVERLAYING 
/FM 

/ATTEMPT TO FIX MINUS NUMBER 
/FO 

/ATTEMPT TO FIX NUMBER >4095 
/FN 

/ILLEGAL FILE « 
/5C 

/ATTEMPT TO OVERFLOW SAC ON CONCATENATE 
/FI 

/ATTEMPT TO CLOSE OR USE UNOPENED FILE 
/DA 

/ATTEMPT TO READ PAST END OF DATA LIST 
/GS 

/TOO MANY NESTED GOSUBS 
/SR 

/ATTEMPT TO READ STRING FROM NUMERIC FILE 
/SM 

/ATTEMPT TO WRITE STRING INTO NUMERIC FILE 
/PA 

/ILLEGAL ARG IN POS 
/FC 

/OS/8 ERROR WHILE CLOSING TENTATIVE FILE 
/CI 

/INQUIRE FAILURE IN CHAIN 
/CL 

/LOOKUP FAILURE IN CHAIN 
ViN ' ^ .^ ., . ^> ,. , - 

/tN#U«E FA^rtOTT'TN OPEN iS ** i^^ ■ ^ >. 
/DO 
./NO MORE ROOM FOR ORIVtRS 
/FE 

/FETCH ERROR IN OPEN 
/BO 



4 



/OS/8 BASIC RUNTIME SYSTEM 
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14135 


3562 


14136 


0516 


14237 


3470 


14240 


1106 


14241 


3353 


14242 


2314 


14243 


7252 


14244 


1726 


14245 


1423 


14246 


1415 


14247 


1417 


14250 


0515 


14251 


4162 


14252 


1101 


14253 


6312 


14254 


2205 


14255 


4767 


14256 


2705 


14257 


4745 


14260 


0426 


14261 


1422 


14262 


2324 


14263 


5333 


14264 


1117 


14265 


1103 



•BO-l /NO MORE FILE BUFFERS AVAILABLE 

0516 /EN 

-ENol /ENTER ERROR IN OPEN 

1106 /IF 

-IF-l /ILLEGAL DEVlFILENAME SPECIFICATION 

2314 /SL 

-SL-1 /STRING TOO LONG OR UNDEFINED 

1726 /OV 

>O0*1 /NUMERIC OR INPUT OVERFLOW 

1415 /LM 

-LM-1 /ATTEMPT TO TAKE LOG OF NEG » OR 

0515 /EM 

.EM-1 /ATTEMPT TO EXPONENTIATE A NEG NUMBER TO A REAL ROWER 

1101 /lA 

-IA-1 /ILLEGAL ARGUMENT IN USER FUNCTION 
/***«*ili*****«****************i»**«*«*t««[*******ilr*****t**«**** 

EFATAL* /ERRORS BEFORE THIS LABEL ARE FATAL 
/*****«********************ilr****«*************t*******t* 

2205 /RE 

«RE»l /ATTEMPT TO READ PAST EOF 

2705 /WE 

•WE-l /ATTEMPT TO WRITE PAST EOF 

0426 /DV 

-DV-1 /ATTEMPT TO DIVIDE BY 

2324 /ST 

•ST-1 /STRING TRUNCATION ON INPUT 

1117 /lO 

-lO-l /TTY INPUT BUFFER OVERFLOW 
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/sees FUNCTION 

/RETURNS SEGMENT OF XS BETWEEN Y AND 

/IF Y<»0,THEN Y TAKEN AS I 

/IF Y»LEN(XS),NULL STRING RETURNED 

/IF l*'e,mLL STRING RETURNED 

/IF 2>1.EN(X$),Z IS 5ET»LEN(X$) 

/IF Z«Y,NU1.L STRING IS RETURNED 



14266 
14267 
1«270 
14271 
14272 
14273 
14274 
14275 
14276 
14277 
14300 
14301 
14302 
14303 

ia304 

14305 
14306 
14307 
14310 
14311 
14312 
14313 
14314 
14315 
14316 
14317 
14320 
14321 
14322 
14323 
14324 
14325 
14326 
14327 
14330 
14331 
14332 
14333 
14334 
14335 
14336 
14337 
14340 
14341 
14342 
14343 



0000 

7001 

3063 

1045 

7740 

5276 

4534 

4476 

4535 

1175 

4514 

1032 

7740 

5365 

3064 

4707 

4534 

0307 

1045 

7750 

5365 

4514 

1032 

7710 

5331 

3046 

1330 

3044 

1032 

7041 

3045 

4536 

4707 

4535 

0013 

6201 

4534 

1175 

4707 

4767 

6201 

1045 

7710 

5565 

4514 

7J 



SEG* 

lAC 

OCA MODESW 
TAB HORO 
SMA SZA CLA 

JMP ,*3 
JMS I FGETL 

ONCl 
JMS I FPUTL 

FPPTMl 
JMS I INTL 
TAD STRtEN 
SMA SZA CLA 

JMP NULLST 
OCA INSAV 
JMS I ARGPLK 
JMS I FGETL 
ARGPLK, ARGPRE 

TAD HORO 
SPA SNA CLA 

JMP NULLST 
JMS I INTL 
TAD STHLEN 
SPA CLA 

JMP ZMINV 
OCA LORD 
TAD KK13 
OCA EXP 
TAD STRLEN 
CIA 

OCA HORO 
JMS I FNORL 
JMS I ARGPLK 
JMS I FPUTL 
KK13, 13 
ZMINY, COF 

JMS I FGETL 
FPPTMl 

JMS I ARGPLK 
JMS 1 FISUBL 
COF000, CDF 

TAO HORO 
SPA CLA 

JMP NULLST 
JMS 1 INTL 
CMA 



/RETURN IN STRING MODE 
/IS Y>0? 

/YES 

/NO-SET Y TO 1 

/SAVE Y 

/FIX Y 

/COMPARE TO STRLEN 

/Y>LtNCXS)? 

/YES-RETURN THE NULL STRING 

/FAKE POINTER TO SCALAR #0 

/GET ADOR OF Z 

/LOAD Z INTO FAC 

/LOC SKIPPED BY FPP SO WE PUT CONST HEHF 

/HI MANTISSA OF Z 

/IS Z«0? 

/YES-RETURN THE NULL STRING 

/NO-FIX Z 

/COMPARE TO STRING LENGTH 

/Z<«LEN(X$) 

/Z>LEN{X$) SO SET ZaLENCXS) 



/MAKE LENGTH POSITIVE 
/FLOAT LENGTH 
/SAVE NEW Z 

/LOAD Y 

/GET AODR OF Z 
/Z-Y 

/GET HI ORDER Z-Y 
/IS Y<Z? 

/NO-RETURN NULL STRING 

/FIX Z-Y 

/ADO ONE AND NEGATE 





/OS/S BASIC RUNTIME SYSTEM 
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ia3«a 


3071 


t434S 


4534 


l«3a6 


UTS 


lAlttT 


4514 


14350 


7110 


143S1 


7430 


14358 


7001 


14353 


7020 


14354 


nil 


14355 


4527 


14356 


4557 


14357 


nil 


14360 


7101 


14361 


4526 


14362 


4560 


14363 


3032 


14364 


5770 


14365 


3032 


14366 


5513 


14367 


S400 


14370 


2222 



OCA STRCNT 
JMS I P6ETU 

FPP7M1 
JM8 I INTl 
CLl RAR 
8ZL 

lAC 
CML 

TAO 8ACPTR 
JMS I LDHINL 
JM8 I CDMR5T 
TAD SACPTR 
CLU I*C 
JMS I STNINL 
JMS I 8THRST 
OCA 8TRLEN 
JMP I SEGCML 

NULLSTi OCA 8TRLEN 

JMP 1 ILOOPL 

PISUBLf PPSU81 
SEGCML, SEGCOM 



/STORE AS SEG UEMGTH 

/RETRIEVE Y AGAIN 
/FIX Y 
/DIVIDE BY TWO 



/USE Y/2 AS DISPLACEMENT FROM START OF SAC 
/INITIALIZE LOH 



/INITIALIZE STH TO SAC 

/ZERO SAC 

/USE CODE IN CONCATENATE TO 00 THE REST 

/ZERO SAC 
/RETURN 



/OS/8 BASIC RUNTIME SYSTEM 
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4400 



• 3000 

NOPUNCH 

*OVERtAy<fl00e 

EWPUNCH 
IFNZHQ EAE * 
NOPUNCH 

> 



/POS FUNCTION 

/RETURNS THE POSITION IN X$ OF V$ STARTING AFTER Z 



14400 

14401 

14402 

14403 

14404 

1440S 

14406 

14407 

14410 

14411 

14412 

14413 

14414 

1441S 

14416 

14417 

14420 

14421 

14422 

14423 

14424 

14425 

14426 

14427 

14430 

14431 

14432 

14433 

14434 

1443S 

14436 

14437 

14440 

14441 

14442 

14443 

14444 

144<lS 

14446 

14447 

14450 

14451 

14452 



0000 
7100 
3064 
4704 
3706 
1071 
7650 
5273 
1032 
7650 
5267 
1045 
7710 
4516 
4514 
3301 
1301 
1032 
7700 
5215 
1301 
7110 
7430 
7001 
7020 

nil 

3302 

7620 
7040 
3303 

1072 
7101 
4527 
1032 
3043 
1071 
3042 
4307 
4531 
6201 
7041 
1040 
7650 



POS, 



PA, 



POSSETr 



SRCLPi 



CLL 




OCA 


INSAV 


JMS 


I STFINK 


OCA 


I LDHCOU 


TAO 


5TRCNT 


SNA 


CUA 


JMP 


ONERET 


TAD 


STRLEN 


SNA 


CLA 


JMP 


ZRORET 


TAD 


HORD 


SPA 


CLA 


JMS 


I ERROR 


JMS 


I INTL 


OCA 


POSITN 


TAO 


POSITN 


TAD 


STRLEN 


SMA 


CLA 


JMP PA 


TAO 


POSITN 


cut 


RAR 


SZL 




lAC 


CML 




TAD 


SACPTR 


OCA 


LOHPR 


SNU 


CLA 


CMA 


OCA 


LOHPSW 


TAO 


STRPTR 


CLC 


lAC 


JMS 


I LDHINL 


TAO 


STRLEN 


OCA 


TEMP4 


TAD 


STRCNT 


OCA 


TEMP3 


JMS 


XOGET 


JMS 


I LOM 


COF 




CIA 




TAD 


TEMPI 


SNA 


CLA 



/FAKE AS STRING CALL TO STRING 

/FIND r$ 

/GET Y$ CHARS FROM OF N 

/# OF CHARS IN Y$ 

/IS Y$ THE NULL STRING? 

/YES-RETURN I AS POSITION 

/N0-# OF CHARS IN XS 

/IS XS THE NULL STRING? 

/YES-RETURN 

/NO-GET HORO OF Z 

/IS Z>»0? 

/NO-ILLEGAL ARGUMENT 

/FIX Z 

/USE IT AS POSITION TO START SEARCH 

/COMPARE POSITION TO MAXIMUM LENGTH OF STRING 

/Z IS PAST END OF STRING-ERROR 
/SEARCH START POSITION IN X$ 
/DIVIDE BY 2 



/USE AS DISPLACEMENT OFF START OF SAC 

/POINTS TO NEXT CHAR FROM XS 

/IF LINK«0,GET RIGHT HALF 
/ELSE GET LEFT HALF 



/BUMP PAST CHAR COUNT 

/INITIALIZE LOH TO YS 

/» Of CHARS IN X$ 

/COUNTER 

/# OF CHARS IN Y$ 

/COUNTER 

/GET CHAR FROM XS 

/GET CHAR FROM Y$ 

/NEGATE CHAR FRON Y$ 
/COMPARE WITH CHAR FROM X$ 
/DO THEY MATCH? 



• 



# 
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14453 
14454 
144S3 
14456 
14457 
14460 
14461 

14468 
14463 
14464 
14465 
14466 
14467 
14470 

14471 
14472 

14473 
14474 
14475 

14476 
14477 
14500 
14501 
14502 
14503 
14504 
14505 
14506 



5262 JMP aCONTU 

2301 I8Z POSITN 

1301 TAD POSITN 

1032 TAD STRLEN 

7740 SMA SZA CLA 

5267 JMP ZRORET 

5224 JMP POSSET 

2042 SCONTUf ISZ TEMP3 
7410 8KP 

5271 JMP RETP08 

2043 ISZ TEMP4 
S245 JMP SRCLP 
4537 ZRORET, JMS I FCLR 
5513 JMP I ILOOPL 

1301 RETPOS» TAD POSITN 
5705 JMP I FLOABL 

4534 ONERET, JMS I FGETL 

4476 ONEl 

5513 JMP I ILOOPL 



0001 ONEl 

2000 

0000 

0000 



1666 

4144 
2647 



1 

2000 









POSITN, 
LDHPH, 

LOHPSW, 

8TPINK, 8TFIND 

FLOABL, FLOATS 

LDHCOL, LDHDF 




# 



PAL6-V7 10/24/72 PAGE 77-1 

/VES-CONTINUE MATCH TO NEXT CHAR IN X$ AND V$ 

/BUMP POSITION TO BE CHECKED 

/GET POSITION NOW CHECKING 

/COMPARE AGAINST LENGTH OF STRING 

/ANY MORE TO COME? 

/NO-SEARCH FAILS 

/YES-START COMPARING NEXT POSITION 

/MORE CHARS IN Y$? 

/YES 

/NO-MATCH SUCCEEOS-RETURN POSITN 

/MORE IN X$? 

/YES"CONTINUE MATCH 

/NO-SEARCH FAILS-RETURN 



/GET POSITION OF MATCH 
/FLOAT RESULT AND RETURN 

/I INTO FAC 



/ROUTINE TO GET SUCCESSIVE HALFWOROS FROM X$ 



14507 
14510 
14511 
14512 
14513 
14514 
14515 
14516 
14517 
14520 
14521 
14522 

14523 
14524 
14525 



XDCET, 



0000 

1303 TAD LDHPSW 

7650 SNA CLA 

5323 JMP XDRITE 

1702 TAD I LDHPR 

4544 JMS I BSWL 
0075 XLCOM, AND K0077 

3040 DCA TEMPI 

1303 TAO LDHPSW 

7040 CMA 

3303 DCA LDHPSW 

5707 JMP I XOGET 

1702 XDRITE, TAD I LDHPR 

2302 ISZ LDHPR 

5315 JMP XLCOM 



/HALFWORD SWITCH 
/LEFT OR RIGHT? 
/RIGHT 

/LEFT-GET CHARS 
/SWAP BYTES 
/ISOLATE CHAR 
/SAVE 

/HALFWORD SWITCH 
/FLIP IT 

/RETURN 

/GET 2 CHARS 

/BUMP POINTER TO NEXT WORD 



/OS/8 BASIC RUNTIME SYSTEM 
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14Sa6 
1*527 
14S30 
H531 
14532 
14533 
14534 
14S3S 
14S36 
14537 
14540 
14541 
14542 
14543 
14544 
14545 
14546 
14547 
14550 
14551 
14552 
14553 
14554 
14555 
1455(> 
14557 
14560 
14561 
14562 
14563 
14564 



6061 
6062 
6063 
6064 
6065 
6066 
6067 
6070 
6071 
6160 
6161 
6162 
6163 
6164 
6165 
6166 
6167 
6170 
6171 
6260 
6261 
6262 
6263 
6264 
6265 
6266 
6267 
6270 
6271 
6360 
6361 



/DATE TABLE-USED TO CONVERT BINARY NUM9ERS<31 INTO ASCII CHARACTERS 



OATTABi 



6061 
6062 
6063 
6064 
6065 
6066 
6067 
6070 
6071 
6160 
6161 
6162 
6163 
6164 
6165 
6166 
6167 
6170 
6171 
6260 
6261 
6262 
6263 
6264 
6265 
6266 
6267 
6270 
6271 
6360 
6361 



/01 
/02 
/03 
/04 
/05 
/06 
/07 
/0fi 
/09 
/10 
/ll 
/12 
/13 
/14 
/15 
/16 
/17 
/IB 
/19 
/20 
/21 
/i2 
/23 
/24 
/25 
/26 
/27 
/2e 
/29 
/30 
/31 



# 



• 



• 



• 



• 
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////////////////////////////////////////////////// 

ntttHnfttttfttdfu/tui/iuttfututifffu/ui 

UIH/ttt OVERLAY 3-FlUE MANIPULATING UUUn/n/ 
UHUnt FUNCTIONS (uunniu 

utfui imNNimunNniuuntutunnunn 
uttnnfntfittfNNntumumttUfntfnttui 



3400 



*3400 



/FILE CLOSING ROUTINE 



ANOPTR.' 
ANDLSTf 



V^^ 



4550 
NOCZi 



13400^ 340i^ 
1340U 7776 
13402^ 7775 

13403 V 7773 

13404 «:77*7 . 

1340S& li-<»a^^CLOSE 
134067 7650 
13407 fo55t4-<fr7t; 
13410(1 4523 i^f-^ 
134llfl.4550 ^5% 
13412,-1,5217 $"'-2^> 
13413^/4731 eem 
13414(f'5217 f?~9-<? 
13415,/ 1330 i1>7jt 
13416.>)4S12 
13417 4732 

13420 4556 

13421 4731 

13422 5242 

13423 1571 

13424 3240 

13425 1174 

13426 3237 

13427 1563 

13430 7106 

13431 7006 

13432 7004 

13433 0074 

13434 6212 

13435 4504 

13436 0004 

13437 3437 

13440 3440 

13441 4516 

13442 1564 

13443 7106 

13444 7006 

13445 7004 

13446 0333 

13447 1200 

13450 3040 

13451 1036 



FNAP, 
CLENG, 
FC, 
CLOSEDf 



ANDLST 

7776 /MASKS FDR CLEARING BUFFER AND HANDLER STATUS BITS W}tM 

7775 S>f W 

7773 fSiy- ? ^ . . .^ 

7767 ?.V- « C^^Ti^.^^M.^a- ^ Cy? '^/uyA-iMx/y n&O'l^ 



TAD ENTNO h 
SNA CLA 

JMP I UDQPL 
JM8 I FTOLE** 
JMS I FTYPL 

JMP NDCZ 
JMS I FTYPSE 

JMP NDCZ 
TAD K232 

I PUTCHL 
I WRBLKK 
I PISWAP 
I 



JMS 
JMS 
JMS 
JMS 

JMP CLOSED 
TAD I W0RD6 

CLENG 

WOROll 

FNAP 

I MORO0 

RTL 



DCA 
TAD 
DCA 
TAD 
CLL 
RTL 
RAL 
AND 
CIF 
JMS 
4 



/GET FILE # 
/IS IT TTY? 

/YES-DON'T 00 ANYTHING Tt^\^ ^ f '^C 
i5e»<^SEE IF FILE OPEN (^Ua*^ :;/ a/>^ e^fi^^l 
/IS FILE NUMERIC? 
/YES-DON'T OUTPUT "Z 
/NO-IS FILE VARIABLE LENGTH? 
/NO-DON»T OUTPUT *Z 
/YES 

/WRITE A "Z IN FILE 
/WRITE LAST BLOCK IF 
/RESTORE 17600 
FTYPSE«^?r7/lS FILE FIXED LENGT!;*? 

/YES-NO NEED TO CLOSE THE 
/NO-GET FILE LENGTH 
/PUT IN CLOSE CALL 



IT HAS 



CHANGED 



FILE 



/POINTER TO FILE NAME 



K0017 

10 

I K7700 



/GET DEVICE 
/ISOLATE IT 

/CALL US« 
/CLOS£ 
/POINTER TO 



NUMBER INTO BITS 8-11 



FILE NAME 



^y.^ J^^r" ^^A-p" 




JMS I ERROR 
TAD I WORD! 
CLL RTL 
RTL 
RAL 

AND K0003t^ 
TAD ANOPTR 
OCA TEMPI 
TAO BMAP 



/FILE CLOSING ERROR 
/GET BUFFER ADDRESS 

/BUFFER NUMBER INTO AC 

/BITS 10,11 

/STRIP 

/USE AS INDEX INTO MASKS 

/BUFFER STATUS MAP 



mam 



m 



■■I 



/OS/8 BASIC RUNTIME SYSTEM 



13452 0440 

13453 303(> 



*N0 I TEMPI 
OCA BMAP 



PAUe-VT 10/24/72 PAGE 79-1 

/CLEAR THE BIT FOR THIS BUfFtR 



t 



9 



• 



• 
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• 
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'jm 






134S4 
1345S 
13456 
13457 
13460 
13461 
13462 
13463 
13464 
13465 
13466 
13467 
13470 
13471 
13472 
13473 
13474 
13475 
13476 



0103 
3563 

1342 

3042 
1042 
1334 
3040 
1042 
1162 
7650 
5276 
1440 
0103 
7041 
1563 
7650 
5316 
2042 



^$^H 



,^^^ t^^'T' 



go- 



CHECKLi 



TAD I H OBP B- /HEADER MORD 

AND K-MHW-/^V6d^> /STRIP HEADER TO DEVICE # ONLY <~^ 
#CA -4— Hf f WOg FF/^^y 

/USE AS COUNTER 
fQtl:df^ OF FILE TO CHECK 
" /MAKf POINTER TO PROPER W0 HEADER 
/SAVE POINTER 
/-# OF FILE WERE CHECKING 
/COMPARE TO CURRENT NUMBER 4 
/IS IT THIS ONE? 

;j|s.DojF,,^A9e. 




\M- 



TAO MM4 
OCA TEMP3 
TAD TE/1P3 
TAD WpTRA 
OCA TEMPI 
TAD TEMP3 
TAO ENTNO 
SNA CLA , 
JMP PSTCHU 

TAD I TEMPI _.. 

AND ¥^^^km-k^6^ /ISOLATE 
CIA /NEGATE 



)0 



7^^-75^7 7 1 f 



^LoSL 




RIVER 

dR THE FILE 



OF iNTERtM 



TAD 'f-»OWM?<?«/^f7C0MPARE TO CURRENT Of )fcie#-^<^^£^ 
SNA CLA /SAME DEVICEI^ ^^2*^ ^K J 



PSTCHK, 



^ 13501 0073 ^ 



JMP CRET N 







13502 
13503 

13504 
13505 
13506 
-p-13507 
13510 
13511 
13512 
13513 
13514 
13515 
13516 
13517 
13520 

. 13521 
13522 

13523 
13524 
13525 
13526 
13527 

13530 
13531 
13532 
13533 
-?^13534 
-J% 13535 
13536 



7640 
5321 

1567 
7106 

7006 
-«*4 7|y6 
0333 

1200 

3040 RELCOM, 

1035 

0440 

3035 ^^^"--^^ 

35fe7rCRETN,) 

4556^-==:::;;^^^ 

5513 



AND ■¥S»4r9C4C 
SZA CLA 

JMP TPREL 
TAD I W0H04 
CLL 




/YES-I.EAVE DRIVER IN CORE 

i-ew E t K ED T ' 

NDLER*LENGTH BIT 
PAGES? 

FREE BOTH PAGES 
S IS THE ONLY FILE USING HANDLER THEN 

/SLIDE BITS««|i|* OF HANDLER PAGE TO AC BITS 




Sp<?i(Lc \WamPO' 



}■/ 



mi^-/0^7y 



/^ 



~ ///'^^J ^ 



(Q^ hff^cC&n^l^^^Z^ 9U^^ 



10,11 \^0^ OK 



DCA 

TAO 

AND 1 TEMPI 

DCA DMAP 

OCA I W0KD4 9^ 

JMS I PISWAP 

JMP I ILOOPL 



/ISOLATE HANDLER BUFFER NUMBJtH, 
/MAKE POINTER TO PROPER CND^MASI 

/DRIVER PAGE MAP 
/CLEAR HANDLER PAGE BIT 

/SET FILE AS IDLE *-^ 
/GET RIO OF 17600 AGAIN 

/DONE ^ti^ z no 

/ONLY FILE USING HANDLER 



{UC ^^fA 



j^W^5 




1567 TPREL, TAD I W0RD4 

7106 CLL RTL 

7008 . , "TL , /IS 

03*3V^fi^^ AND KgB0j» .»rj^/ -pfs^r gf^^ 

1341 TAD AN2PTR /USE AS INDEX TO AND MASK 

5312 JMP RELCOM 

0232 ir232, 232 

2357 irryPSE, FOTYPE _ 

53Sjr2»tfRBLKK, WRBLK V2> 

0003 *^Zl, 3 / , 

35*8¥^««ipTRA, hyPTR4Y. 

,6714 WfpfR, FlLEl-f-'K/ 

6731 FlLEa-f^ 



\ia^ mr\mT ,fx^A^i^(^^^ 



ER BUFFER NUMBER , . t 






x- 









hj^f% Pmt.0: 



> fi^f** 



/STARING ADDRESSES OF 
/FILE TABLE ENTRIES 



■HM 






— ^ 



/08/8 BASIC RUNTIHE SYSTEM 
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13537 6746 
13540 6763 



FlL€4-f V 



13541 3542 AN2PTR, AN0US2 n 

MM4, / . „..,, 

13542 7774 ANDt52» 7774,^^ — I 1iit$^^^if\ " 

13543 7701 7701 g/H ^-,10 



iB.^jMn^fS^Tyag^ gu e smaiM W Wi 



j i fe« ig e i lH gg Bt »iwn< iaW i fi « iiB 



• 



t 



• 



• 



• 



• 



/OS/B BASIC RUNTIME SVSTEM 
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3600 



*3600 



/CHAIN FUNCTION 

/SETS UP COMMAND DECODER AREA, THEN CHAINS TO BCOMP.SV 



13600 
13601 
13602 
13603 
13604 
13605 
13606 
13607 
13610 
13611 
13612 
13613 
136H 
13615 
13616 
13617 
13620 
13621 
13622 
13623 
13624 
13625 
13626 
13627 
13630 
13631 
13632 
13633 
13634 
13635 
13636 
13637 
13640 
13641 
13642 
13643 
13644 
13645 
13646 
13647 
13650 
13651 
13652 
13653 
13654 
13655 
13656 
13657 
136f<0 
13661 



4510 
5200 
4556 
4617 
4620 
6212 
4504 
0010 
1572 
3217 
1573 
3220 
6212 
4477 
0012 
4334 
4416 
0000 
4516 
1221 
7640 
5234 
1220 
6212 
4477 
0001 
7001 
5222 
1174 
3242 
1220 
6212 
4477 
0002 
0000 
0000 
4516 
1242 
6211 
3665 
1243 
7106 
7006 
0266 
1220 
3676 
1076 
3664 
1670 
3276 



CHAIN, 



DNAlf 
DNA2f 
CDINf 
CI« 



DISIN, 



STB, 

FLN, 



JMS I PRINT 
JMP .-1 



I PISWAP 

I DNAl 

I DNA2 

10 

I K7700 



I W0RD7 

DNAl 

I WORD10 

DNA2 

10 

I USR 



JMS 

JMS 

JMS 

CIF 

JMS 

10 

TAD 

DCA 

TAO 

OCA 

CIF 

JMS 

12 

PSMAP2 

NAHEG 



JMS I ERROR 
TAD COIN 
SZA CUA 

JMP DISIN 
TAD 0NA2 
CIF 10 
JMS I USR 
1 
7001 

JMP CI 
TAD WORDU 
DCA STB 
TAO DNA2 
CIF 10 
JMS I USR 
2 



JMS I ERROR 
TAD STB 
10 

I 1.7620 
FLN 
RTL 



CDF 
DCA 
TAD 
CLL 
RTL 
AND 
TAO 
DCA 
TAD 
OCA 
TAD 
DCA 



K7760 
0NA2 
I CBLK 
K0100 
I L7b44 
1 L7605K 
CBLK 



/EMPTY TTY RING BUFFER 

/RESTORE PG 17600 

/RESTORE SYS RESIDENT 

/GET FILE NAME IN NAME AREA FROM CURRENT FILE 

/CALL USR 
/LOCK IN CORE 

/FIRST TWO CHARS OF OEV NAME 
/LAST TWO CHARS 



/INQUIRE 
/DEVICE NAME 



/ERROR 

/GET ENTRY POINT OF DRIVER FOR CAHIN FILE 

/IS IT IN CORE? 

/YES-NO NEED TO FETCH IT 

/NO-DEVICE # INTO AC 



/FETCH HANDLER 

/INTO PAGE 7000 

/MAKE IT LOOK LIKE INQUIRE ERROR 

/POINTER TO FILE NAME 
/GET DEVICE # 



/LOOKUP 

/POINTER TO FILE NAME 



/GET STARTING BLOCK 

/STARTING BLOCK IN CD AREA 
/FILE LENGTH 



/PUT IN BITS 0-7 
/COMBINE WITH DEVICE # 
/PUT IN CD AREA 
/SET R SWITCH 

/STARTING BLOCK OF COMPILEH 
/INTO COMPILER READ CODE 



/OS/S BASIC RUNTIME SYSTEM 
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13662 


5663 




1366S 


4143 




13664 


7644 


1.7644, 


13665 


7620 


L7620, 


13666 


7760 


K776a, 


13667 


7621 


L7621, 


13670 


7605 


1760SK, 



/MOVE THE COMPILER REAO TO FIELD 1 AND EXECUTE IT 



JMP I. ♦I 

C8M0VE 

7644 

7620 

7760 

7621 

7605 
/CODE TO READ IN COMPILER AND START IT 
/THIS CODE GETS MOVED TO FIELD 1 AND EXECUTED FROM 
/LOC 2001-2013 IN FIELD 1 



\}^ 



13671 

13672 
13673 
13674 
13675 
13676 
13677 
13700 
13701 
13702 
13703 



\^ 



rm 




0"7y3 13704 
y 13705 
4rl3706 
(, 13707 
7 13710 
2.0 13711 
7sll37l2 
-,1-^-^-:^37l3 
^ ^ 231S714 
a/ 13715 
-z3T37l6 
z.^3717 
■Z-71372B 
•5«?13721 
?(13722 
^ £43723 

-^7:5^13725 
713726 

«4tP13727 
113730 
2,13731 
«13732 
V13733 
^13734 
^13735 
-713736 

5T013737 
\ 13740 






6211 
6202 
4613 
3700 
0000 
7617 
7402 
6202 
5612 
7001 
7607 



CREAD, 



CBLKi 



K7607K, 



CDF 10 
CIF 
4613 
3700 


7617 
HLT 
CIF 
5612 
7001 
7607 



/"JM8 I L7607K" 
/31 PACES 
/0-7577 

/STARTING BLOCK OF COMPILER 

/SYSTEM ERRORiAND SINCE WE ARE PROBABLY CLOBBERED, WE CAN'T REPORT IT 

/"JMP I .♦1"-START THE COMPILER 
/STARTING AODR OF COMPILER 

/LESS THAN THE DESIRED VALUE 



/ROUTINE FOR INTERPRETER EXIT 



6031 FSTOP, 

53«5 7> 

1077 

6036 

13«»(g r 

7640 

5325 >5 

6041 

13«--^TL 

6046 

7200 

6041 

5320-7 

13-5* cy 

6046 . 



7200 

4556 NOCTC, 

47-44^5' 

6211 , 

6201 
7450 
57trsS"-4 

4 746 r 7 

^4»0 l7lH> 

0000 
' - 37 4- / E81.K » 



KSF • 

~-JWF- WC-TC - 
TAD K200 
KR8 

TAD MCC 
SZA CLA 
--^ MP N O CT ^— 
T8F 

JMP ,-l 
TAD KUPARO 
TLS 
CLA 
TSF 

JMP ,-1 
TAD KC 
-IkS 



//l& THE KEYBOARD FLAG SET? 

/-/N^4^£R E.aA.„MD^iLH AKlfil^ - C--.&E14T - US-HBRfc- 

ijrYES-FORCE PARITY BIT 

/GET CHARACTER 

/COMPARE AGAINST "C 

/WAS IT *C7 
— /NO- T HIS IS A NOR M AL CXIT 



/YES -ECHO 



f>Arc^< ss^s- 



fifh-y-c/^ 



/ECHO "C 



CLA 
-gdtMS_L^lM4P \il5/REST0RE PE 17j 
jWrTP2SWAD> /RESTORE PG 2 



/GET BLOCK # FOR EDI 





/SHALL WE CALL THE EDITOR? 

/NO JUST CALL OS/8 

/YES-PUT THE BLOCK # IN DRIVER CALL 

/CALL SYS DRIVER 

/READ 7 BLOCKS 

/INTO 0-3377 

/BLOCK # OF EOITOS 



t 



• 



t * 



/OS/8 BASIC RUNTIME SYSTEM PAL8-V7 10/2<(/7a PAGE 91-2 

iT^srai 7«0a , nut /sys error, and since we are probably cuo8BEkfcD,we can't report it 

£3 ISTilZ 5744.5^^ JMP I ,♦! /start the EDITOR 

jyi37«3 3012 3012 



# ^ 



^^inau 43*««(''P2SWALf P8WAP2 

^ 13745 7600 KL7600, 7ii00 

713746 7607 LK7607» 7607 

(,0 13747 7604 ED8UK, 76^4 

I 13750 7575 MCC, -203 

1^3751 0336 KUPAROr 336 

313752 0303 KC. 303 



/OS/8 BASIC RUNTIME SYSTEM 
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4000 



*«000 



/FIUE OPENING ROUTINE 

/SITS IN THIS OVERUAY BECUASE THERE IS ROOM HERE, AMD THE USR IS 

/GOING TO SPIN SYS ANYWAY 









14000 |340lS''t]PENAV, 

14001 7001 OPENAFy 

14002 S204 . 

14003 1 340(5' "OPENNVi 

14004 35fe3^<StiOPENN^ 

14005 1162 \i^ 

14006 7650 1^ 

14007 5513 55"**? 

14010 1567 ^IQ- 

14011 7640 v^ 

14012 4516 PB, 

14013 45S6 

14014 4741 

14015 6212 

14016 4504 

14017 0010 

14020 1572 

14021 3227 

14022 1573 

14023 3230 

14024 6212 

14025 4477 

14026 0012 

14027 4027 OEVNAl, 
14030 4030 0EVNA2, 

031 0000 ENTRYNf 

4032 4516 IN, 

4033 1230 

14034 7110 

14035 7012 

14036 7012 

14037 1563 

14040 3563 

14041 1231 

14042 7440 

14043 5734 

14044 1035 

14045 7110 

14046 7420 

14047 5262 

14050 7110 

14051 7420 

14052 5273 



TAD C4 

lAC 

JMP OPENNF 

TAD C4 



TAO ENTNO 
SNA CLA 

JMP I ILOOPL 
TAO I W0R04 
SZA CLA 

JMS I ERROJT 
|jMa _I PlSMAPl ''' 
JMS I NAMEGL 
CIF 10 
JMS I K7700 
10 

TAD I W0R07 
OCA DEVNAl 
TAD I WORO10 
OCA 0EVNA2 
CIF 10 
JMS I USR 
12 



/ALPHANUMERIC, VARIABLE LENGTH 
/ALPHANUMERIC, FIXED LENGTH 

/NUMERIC, VARIABLE LENGTH 
■■/SET UP HEADER WORD 



• 


JMS I ERROR'^-" 
TAD 0EVNA2 
CLL RAR 
RTR 
RTR 

TAD I l«ORD0 
OCA I t«aRD0 
TAO ENTRYN 

JMP I DRIVRLff/ 
TAO DMAP '^ 
CLL RAR 
SNL 

JMP FHEE70 
CLL RAR 
SNL 

JMP FREE72 



/IS FILE TTY? 

/YES-DON'T DO ANYTHING ts'^i t- f*^^ 

/GET HANDLER ENTRY 

/IS FILE IDLE? 

/ATTEMPT TO OPEN FILE ALREADY OPfcN 

/RESTORE 17600 

/GET FILE DEVICE NAME AND FILE NAME INTO WORDS 7-14 FROM SAC 

/CALL TO USR 
/LOCK USR IN CORE 

/DEVICE NAME INTO INQUIRE CALL 



/CALL TO USR 
/INQUIRE 
/DEVICE NAME 

/ENTRY POINT 

/GET DEVICE « 

/PUT INTO BITS 



/STORE IN HEADER WORD 

/GET DRIVER ADDRESS 

/IS IT IN CORE? 

/YES-NO NEED TO FETCH IT 

/NO-GET MAP OF DRIVER PAGES 



/PAGE 7000 BIT IN LINK 

/IS PAGE 7000 FREE? 

/YES 

/NO-7200 BIT TO LINK 

/IS PAGE 7200 FREE? 

/YES 



^ 



10 (^ff 



9 



9 



# 



• 
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• 



• 
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^i 



M ^ 



\}^ 



fft 



^^ 



4053 
4054 
4055 
4056 
4057 
4060 
4061 

4062 
4063 
4064 
4065 
4066 
4067 
4070 
4071 
4072 

4073 

4074 

4075 

4076 

4077 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4130 

4131 

4132 

4133 

4134 
4135 



7110 
7630 
4516 
1103 
3311 
1340 
5303 

7110 
7620 
7001 
1335 
3311 
7326 
3336 
7001 
5303 

7110 

7620 

7001 

1342 

3311 

1340 

3336 

7326 

1035 

3035 

1230 

6212 

4477 

0001 

4111 

4516 

6211 

7240 

1737 

1230 

3040 

1440 

6201 

7700 

5332 

1336 

1035 

3035 

1073 

1563 

3563 

1311 

5734 

4200 
7000 



CLL RAR 

SZL CLA 
DO, JMS I ERROR«» 

TAD K7400 

DCA FETPAG 

TAD C4 

JMP DFETCM 

fREE70, CLL RAR 
SNL CLA 

lAC 
TAD K7000 
DCA FETPAG 
CLL CLA CML RTL 
DCA TPM 
lAC 
JMP DFETCH 

FREE72# CLL RAR 

SNL CLA 
lAC 

TAO K7200 

DCA FETPAG 

TAD C4 

DCA TPH 

CLL CLA CML RTL 
OFETCH, TAD DMAP 

DCA DMAP 

TAD 0EVNA2 

CIF 10 

JMS I USR 

1 



FETPAG, 
FE, 



DRAP, 



JMS I ERROR — 
CDF 10 
CLA CMA 
TAD I L0037 
TAO DEVNA2 
DCA TEMPI 
TAD I TEMPI 
CDF 
SMA CLA 

JMP DRAP 
TAD TPH 
TAD DMAP 
DCA DMAP 
TAD K0010 
TAD I WORO0 
OCA I MORD0 
TAD FETPAG 
JMP I DRIVRL 



/NO-7400 BIT TO LINK *? IM" 

/IS PAGE 7400 FREE? 

/NO-NO MORE ROOM FOR DRIVERS 

/YES-LOAO HANDLER INTO 7400 

/SET UP IN FETCH CALL 

/SET BIT 9 TO SHOW PAGE 7400 OCCUPIED 

/FETCH DRIVER 



/PAGE 7200 BIT TO LINK 
/IS 7200 FREE? 
/YES-THERE IS ROOM FOR 



A Two PAGE HANDLER 



/SET UP FETCH TO USE PAGE 7000 

/TURN ON BIT 10 

/SAVE IN TWO PAGE SET WORD 

/SET BIT 11 TO SHOW PAGE 7000 OCCUPIED 

/FETCH HANDLER 

/7400 BIT TO LINK 

/IS 7400 PAGE FREE? 

/YES-THEN THERE IS ROOM FOR A a PAGE HANDLER 

/SET ADDRESS IN FETCH CALL 

/IF TWO PAGE LOADED, SET BIT 9 ALSO 

/TURN ON BIT 10 TO SHOW PAGE 7200 OCCUPIED 

/TURN ON PAGE BIT FOR WHERE OtirPC r WILL BE LOADED 

/DEVICE # IN AC P^MtC- 

/CALL TO USR 

/FETCH 

/DRIVER ADDRESS 



/GET ADDR OF HANDLER INFO TABLE 

/USE THE DEVICE « AS AN INDEX INTO THAT TABLE 

/SAVE POINTER 

/GET THE INFO WORD FOR THE HANDLER JUST FETCHED 

/IS HANDLER 2 PAGES LONG? 

/NO MAP IS COMPLETE 

/YES-UPDATE DRIVER MAP TO INCLUDE 

/SECOND PAGE OF TWO PAGE HANDLERS 



/SET 2 PAGE BIT IN HEADER WORD 

/HANDLER ENTRY ADDRESS 
/PAGE ESCAPE 



DRIVNL, ORIVRN 
K7000, 7000 



/08/8 BASIC RUNTIME SYSTEM 
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lUlU 0000 TPH, 

ittJST 0037 U0037, 37 

14U0 0000 C4, 4 

UUt 4416 NAHESUf NAMES 

14142 7200 K720er 7200 



U- 



/ROUTINE TO MOVE THE COMPILER READER INTO FIEUO I ANO START IT 



13«i2V*VtlBM0VE, 

3011 *^ 

3040 ^ 
13611^!-^ 

3012 ^ 
6201^ 
1411-/ 
fc21l'^ 



3412 



^ 



2040<, .^ 
5351 S^'^^ 
6212-/ 



^^lAjgy 47bi- m'T 

^^ t4bMb> <!0I^'0 iTk^lUDDf 



. TAD 


CSTA 


OCA 


XRl 


TAD 


CSTAC 


OCA 


TEMPI 


TAD 


KK2000 


OCA 


XR2 


CDF 




TAO 


I XRl 


COF 


10 


OCA 


I XR2 


ISZ 


TEMPI 


JMP ,-5 


CIF 


10 


JMS 


I ,M 



141-«r*llS<fT>5 
14h«'?t)77fc5 



CSTA, 
CSTAC, 



/POINTES TO COMPILER STARTING CODE 

/COUNTER 

/MOVE TO LOC 2001 IN FIELD 1 

/GET WORD OF CODE 

/MOVE IT 
/DONE? 
/NO 
/YES-START IT 



/^ 






CREAO' 
-13 



fk^*) 



/J 



i> .* "if. 






I- 



^e -^' r %=^, 






* 3 

I 



• 



• 



f 



• 
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14200 


3567 


DRIVRNf 


OCA 


I W0RD4 


/DRIVER ENTRY INTO I/O TABLE 


14201 


1036 




TAD 


BMAP 


/GET BUFFER MAP 


14202 


7110 




CLL 


RAR 


/BUFFI BIT TO LINK 


14203 


7420 




SNL 




/IS IT FREE? 


14204 


S234 




JMP Bl 


/YES-ASSIGN BUFFI 


14205 


7010 




RAR 




/BUFF2 BIT TO LINK 


14206 


7420 




SNt 




/IS IT FREE? 


14207 


5227 




JMP B2 


/YES-ASSIGN BUFF2 


14210 


7010 




RAR 




/BUFF3 BIT TO LINK 


14211 


7420 




SNL. 




/IS IT FREE 


14212 


5222 




JMP B3 


/YES-ASSIGN BUFF3 


14213 


7010 




RAR 




/N0-BUFF4 BIT TO LINK 


14214 


7630 




8ZU 


CLA 


/IS IT FREE? 


14215 


4516 


BO, 


JMS I ERROR 


/NO-NO MORE BUFFERS AVAILABLE 


14216 


1326 




TAD 


K1400 




14217 


3564 




DCA 


I NOROl 


/SET BUFFER ADDRESS TO 1400 


14220 


1073 




TAD 


K0010 


/SET BUFF4 BIR IN MAP 


14221 


5237 




JMP 


BUFASS 




14222 


7200 


83, 


CUA 






14223 


1327 




TAD 


K100e 




14224 


3564 




OCA 


I WORDl 


/SET BUFFER ADDRESS TO 1000 


14225 


1330 




TAD 


CC4 




14226 


5237 




JMP 


BUFASS 


/SET BUFF3 BIT IN MAP 


14227 


7200 


B2, 


CLA 






14230 


1102 




TAD 


K0400 




14231 


3564 




OCA 


I WORDl 


/SET BUFF ADDRESS TO 400 


14232 


7326 




CL.t 


CML CLA RTL 


/SET BUFFS BIT IN MAP 


14233 


5237 




JMP 


BUFASS 




14234 


7200 


Bl, 


CLA 






14235 


3564 




OCA 


I WOROl 


/SET BUFF ADDRESS TO 0000 


14236 


7201 




CLA 


lAC 


/TURN ON BUFFI BIT IN MAP 
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148ST 
14240 
14241 
t42<l2 
14243 
14244 
14245 
14246 
14247 
142S0 
142S1 
14252 

14253 
14254 
14255 
1425<^ 
14257 
14260 
14261 
14262 
14263 
14264 
14265 
14266 
14267 
14270 
14271 
14272 
14273 
14274 



1036 
3036 
1563 
7112 
7010 
7620 
5253 
1331 
4275 
3572 
3571 
5260 

7326 
4275 
3571 
1571 
3572 
3573 
7040 
1570 
3365 
1564 
3566 
6212 
4477 
0011 
4556 
4674 
5513 
3302 



BUFASS, TAD BMAP 
OCA BMAP 
TAO I MORD0 
CLI. RTR 
RAR 
SNU CLA 

JMP FLOOK 
TAD CCS 
JM8 ENTLOK 
OCA I W0RD7 
OCA I W0RD6 
JMP CLEANP 



CLEANP, OCA I 
CMA 



JMS ENTLOK 
OCA I U0RD6 
TAD I W0RD6- 
OCA I W0R07 
MORD10 



TAO I W0R05 
OCA I M0R02 
TAD I WOROl 
OCA I W0RD3 
CIF 10 
JMS I USft 
11 

JMS I PISWAP 
JMS I NEXRCK 
JMP 1 ILOOPL 



/UPDATE BUFFER ASSIGNMENT MAP 
/GET HEADER WORD 

/FIXED, VARIABLE BIT TO LINK 

/IS IT FIXED? 

/YES-DO A LOOKUP 

/NO-OO AN ENTER 

/ENTER 

/MAXIMUM LEMGTH IN WORD 7 

/ZERO ACTUAL LENGTH 

/FINALIZE I/O TABLE ENTRY 



FLOOK, CLL CML CLA RTL /2 



NEXRCK, NEXREC 



/LOOKUP 
/ACTUAL LENGTH 

/ALSO EQUALS MAXIMUM LENGTH 

/ZERO COLUMN POINTER 

/-I 

/STARTING BLOCK-1 

/CURRENT BLOCK #»STARTIN6 BLOCK-1 

/READ/WRITE POINTER AT BEGINNING OF BUFFER 

/CALL TO USR 

/USSOUT 

/GET RID OF 17600 

/DO A NEXREC TO READ IN FIRST FILE BLOCK 

/DONE 



• 



# 



# 
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^^1«2T5 


0000 


ENTLOK, 





'^14276 


33*<©k(r2- 


OCA FNOM 


14277 


1174"^ 




TAO WQRDll 


14300 


33»ti^ 


DCA STARTS 


14301 


l7J^c^^ 


TAD I DEVNAL 


14302 


6212 




CIF 10 


14303 


4477^ 

430«^ 




JMS I USR 


14304 


FNOM, 


1 


14305 


4305-t> STARTB, 


■ 


\T>\t-14307 
^ 14310 


4 30*-'^ 


FUEN, 


fl 


4516 


EN, 


JMS I ERROR 


1305 




TAO STARTB 


14311 


7640 




SZA CLA 


V 14312 


5321 




JMP FILSTU 


\ 14313 


1306 




TAO FLEN 


14314 


7640 




SZA CUA 


14315 


5321 




JMP FILSTU 


14316 


1333 




TAD C20 


14317 


1563 




TAD I WORD0 


14320 


3563 




DCA I MOROe 


14321 


1305 


FILSTU, 


TAD STARTS 


14322 


3570 




DCA I M0RD5 


14323 


1306 




TAO FLEN 


1432a 


7041 




CIA 


14325 


5675 




JMP I ENTLOK 


1432fc 


1400 


K1400, 


1400 


14327 


1000 


K1000, 


1000 


14330 


0004 


CC4, 


4 


14331 


0003 


CCS, 


3 


14332 


4030 


DEVNAL, 


0EVNA2 


14333 


0020 


C20, 


20 



/FUNCTION NUMBER IN PLACE 
/POINTER TO FILE NAME 
/INTO CALL 
/DEVICE NUMBER 

/CALL TO USR 
/ENTER OR LOOKUP 



/FILE STARTING BLOCK « 

/IS IT NON-ZERO? 

/YES-DEVICE IS FILE STRUCTURED 

/NO-GET FILE LENGTH 

/IS IT EMPTY? 

/NO-DEVICE IS FILE STRUCTURED 

/NO-FILE IS REAO/rtRITE ONLY 

/SET READ/WRITE ONLY BIT 

/GET STARTING BLOCK « OF FILE 

/PUT IN I/O TABLE 

/FILE LENGTH 

/MAKE FILE LENGTH POSITIVE 

/RETURN 
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-rl«335 
3l«33fc 
yi«33T 

i>ia3«i 

/7U3«2 

/Hlili3_ 

ft^^rT W> ar^/Jl4344 

-^ ^ *^ ia3«b 
5 Cit>P-f/fl43ar 



7 
? G/ 



Jbi436a 

T14365 

7614366 

) 14367 

?'14370 
:^14371 



1363 

3770 
1364 
3771 
1031 
7710 

i] 

1365 

3011 

1366 

3012 

1367 

3040 

6211 

1411 

6221 

3412 

2040 

SS52 

6201 

8734 

4544 

4207 

6213 

7577 

7773 

7774 

7600 

7605 



/SUBROUTINE P2SWAP-REST0KE OS/fi RESIDENT MONITOR PRIOR TO EXIT FHOM INTERPRETER^ 
/THIS IS DESTRUCTIVE CODE, AND ONCE THIS ROUTINE HAS BEEN EXECUTED 
/THERE IS NO PLACE TO GO iUT OUT, 
FUNCTIONSI 

1) REMOVES CTRL/C HOOKS FROM SYS DRIVER 

2) RESTORES BATCH CONTROL WORDS TO 27774-27777 

3) IF SYS«TD/aE, RESTORES PAGE 27600 AND RETURNS COFS TO PAGE 07600 



PSWAP2, 



TDFIXLf 

K4207K, 

K6213K, 

K7577K, 

K7773K, 

MIN4, 

L7600K, 

L7605P, 



TAD K4207K 
OCA I L7600K 
TAD K6213K 
OCA I L7605P 
-TAD PSFLAG--^ 
SPA CLA 

JMS^ I TDFIX L 
rAO K7577K 
DCA XRl. 
TAD K7773K 
OCA XR2 . — 
TAO MIN4 
DCA TEMPI 
COF 10 
TAO I XRl 
CDF 20 
OCA I XR2 
ISZ TEMPI 

JMP ,-.5 
COF 

JMP I PSWAP2 
PSWP2P 
4207 . 

6213** ^ , 
7577 itoH 
7773 ^ 
■ 4 "' 
7600 
7605 



/REMOVE CTRL/C HOOKS 



-TGft- Rtsi^ENT sTATvr-rcTnr 

/IS THIS TD8/E SYS? 

/YES-RESTORE PAGE 27600 AND PAGE 07600 






/POINTER TO 17600 
/POINTER TO 27774 
/SET COUNTER TO -4 






/FETCH BATCH WORD FROM SAVE AREA 

/RESTORE IN FIELD 2 

/DONE? 

/NO 

/YES-WE ARE FINISHED, SO RETURN 







4 ^TPf Xx0tJZ. ^iC-'^^ 

-7 ^Ul ^^ ^^^"^ 

40 :x57o ^s-& «^57e> 



# 




• 



• 



« 
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/NAMEG-ROUTINE TO TRANSLATE SAC INTO A b WORD FILE NAME BLOCK, THEN 
/PUT THAT NAME BLOCK INTO THE BLOCK SPECIFIED BY THE AC ON ENTRY 



^c/^l 



&x> 



of 



14400 


7706 


MCOLON, .72 


14401 


0014 


MCSPE 


, 14 


14402 


4405 


N3A, 


N3 


14403 


0000 


Nl, 





14404 


0000 


N2, 





1440S 


0000 


N3, 





14406 


0000 


N4, 





14407 


0000 


N5, 





14410 


0000 


N6, 





14411 


0423 


DS, 


0423 


14412 


1300 


K0, 


1300 


14413 


7772 


M6, 


-6 


14414 


0016 


CC16, 


16 


14415 


7774 


MMM4» 


-4 


-4iyLU__1000 


NAMES 


> 


14>H. 


llfg-' 




TAO W0RD7 


AMM£::2Si*i 




DCA TEMPS 


i44Tr~T0js 




TAD 8TRLEN 


14422 


1214 




TAO CC16 


14423 


7710 




SPA CLA 


14424 


4516 


IF, 


JMS I ERROR 


1442S 


1032 




TAO STRLEN 


14426 


3007 




DCA TEMP2 


14427 


nil 




TAD SACPTR 


14430 


7101 




CLL lAC 


14431 


4527 




JMS I LDMINL 


14432 


4557 




JMS I LOHRST 


14433 


1202 




TAO N3A 


14434 


7100 




CLL 


14435 


4526 




JMS I 8THINL 


14436 


4560 




, JMS I STMR8T 


14437 


1211 




TAD OS 


14440 


3203 




DCA Nt 


14441 


1212 




TAO K0 iV ,J^ 

DCA N2 rr 


14442 


3204 




14443 


3205 




DCA N3 


14444 


3206 




DCA N4 


14445 


3207 




OCA N5 


14446 


3210 




DCA N6 


14447 


3043 




"~-t>CtrTEMP4 


144S0 


4531 


NCG, 


JMS I LOH 


14451 


3040 




OCA TEMPI 


14452 


1040 




TAD TEMPI 


14453 


1200 




TAD MCOLON 


14454 


7450 




SNA 


14455 


5306 




JMP CAO 


14456 


1201 




TAD MCSPE 


14457 


7650 




SNA CLA 


14460 


5325 




JMP SSAO 



/SCRATCH NAME BLOCK 
/DEVICE NAME 

/FILE NAME 

/.EXT 



/PUT THE NAME IN FILENAME AREA 
/SAVE DESTINATION BLOCK ADDRESS 

/COMPARE STRING LENGTH TO 16 

/TOO MANY CHARS IN OEVtFILENAME 

/STRING LENGTH COUNTER 

/INIT LOH TO PULL CHARS FROM SAC 

/INIT STH TO PUT CHARS IN SCRATCH BLOCK 

/INITIALIZE DEV TO DSK; 



/ZERO FILE NAME 

/ZERO INTERMEDIATE COUNTER 

/GET CHAR FROM SAC 

/SAVE 

/IS IT A COLON? 

/YES-CHARS SO FARsDEVICE NAME 
/NO-IS IT A PEHIOO? 

/YtS-NEXT TWO CHARSsEXTENSION 



/03/a 


BASIC 


RUNTIME SYSTEM 
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14461 


1040 


TAO TEMPI 


/NO-GET CHAR AGAIN 


144*2 


45se 


JMS I 5TM 


/STOBE IN NAME BLOCK 


14463 


2043 


ISZ TEMP4 


/BUMP COUNT FOR CURRENT SECTION 


14464 


2007 


NCGS, ISZ TEMP2 


/END OF STRING YET? 


14465 


5250 


JHP NC6 


/NO-NEXT CHAR 



« 



(O 



y^i^- 






/08/6 BASIC RUNTIME SYSTEM 



U<t3f 14466 


1043 


14467 


1213 


14478 


7740 


14471 


5224 


14472 


1342 


14473 


3011 


14474 


7040 


14475 


1042 


) 14476 


3012 


' 14477 


1213 


14500 


3007 


14501 


1411 


14502 


3412 


14503 


2007 


14504 


5301 


14505 


5616 


14506 


1043 


14507 


1215 


14510 


7740 


' '^0 14511 


5224 


14512 


1205 


14513 


3203 


14514 


1206 


14515 


3204 


14516 


3205 


14517 


3206 


14S20 


1202 


14521 


7100 


14522 


4526 


14523 


3043 


14524 


5264 


1L"-W 14525 


1043 


14526 


1213 


14527 


7740 


14530 


5224 


14531 


3043 


14532 


7332 


14533 


1007 


14534 


7710 


14535 


5224 


14536 


1343 


14537 


7100 


,r^^ l'*540 


4526 


Op^ 14541 


5264 



MML, 



CAD, 



SSAD, 



14542 4402 NIA. 

14543 4410 N6A, 



TAD TEMP4 

TAD M6 

SMA SZA CUA 

JMP IF 
TAD NIA 
DCA XRl 
CMA 

TAD TEMP3 
DCA XR2 
TAD M6 
DCA TEMP2 
TAD I XRl 
DCA I XR2 
ISZ TEMP2 

JMP MML 
JMP I NAMEG 

TAD TEMP4 
TAD MMM4 
SMA SZA CUA 
JMP IF 



^TAU N3 

OCA Nl 

TAD N4 

OCA N2 

OCA N3 

OCA N4 

TAD N3A 

CUl. 

JMS I STHINL 
■"1>CrTEMP4 

JMP NCGS 
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/YES-GET CHAR COUNT FOR THIS SECTION (NAME) 

/IS IT >6? 

/YES-TOO MANY CHARACTERS IN FILE NAME 
/NO-ADDRESS OF SCRATCH NAME BLOCK 

/-I 

/ADDRESS OF FINAL NAME 8U0CK-1 

/MOVE 6 WORDS 



/MOVE NAME WORD FROM SCRATCH AREA TO FINAL OEST 

/DONE? 

/NO 

/YES-RETURN 

/GET CHAR COUNT FOR THIS SECTION 

/COMPARE AGAINST 4 
/TOO MANY CHARS? 
/YES-DEVICE NAME TOO LONG 



r/'^^/No- 



MOVE NEW DEVICE NAME FROM FILE NAME WORDS TO PROPER PLACE 
/CLEAR FILE NAME 



/AND RE-INIT STH FOR NAME AREA 
/ZERO COUNT 



TAD TEMP4 

TAD M6 

SMA SZA CLA 

JMP IF 
DCA TEMP4 



/COUNT FOR THIS SECTION (FILE NAME) 



/TOO MANY? 

/YES-FILE NAME TOO LONG 

/NO-CLEAR COUNT 
CLA CLL CML RTR /2 IN AC 

TAD TEMP2 /COMPARE AGAINST # OF CHARS LEFT 
SPA CLA 

JMP IF /TOO MANY CHARS IN EXTENSION 

TAD N6A 
CLL 

JMS I STMINL /INIT STM TO PUT INTO EXTENSION 
JMP NCGS 



Nl-1 
N6 



(2) f^C^^ 
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/SUBROUTINE TO RESTORE PAGE 27600 OP TD8/E DRIVER 
/AND READJUST THE^^FS. IN FIELD 



^ 



14544 
14S4S 
14546 
14547 
14550 
14551 
14552 
14553 
14554 
14S5S 
14556 
14557 
14S60 
14561 
14562 
14563 
14564 
"' 145*5 

4«*6f 
^14510 

.■^-^1 1-41*-! 



0000 


P8IIIP2P, 


'1X4^ 


3031 




'-Wir>SFUAG 


1362 




TAD COF20 


3763 




DCA I P2CDFL 


1362 




TAD CDF20 


3764 




DCA I P2CDL1 


4556 




JMS I PtSWAP 


1365 




TAD K6223 


3766 




OCA I U7642 


1367 




TAD K6222 


3770 




DCA I L7721 


1367 




TAD K6222 


3771 




DCA I L7727 


5744 




JMP I PSWP2P 


6221 


COP20, 


CDF 20 


1243 


P2CDFI.I 


P2CDF 


1247 


P2C01.1, 


P2CDF1 


6223 


K622i, 


6223 


7642 


L7642, 


7642 


6222 


K6222, 


6222 


7721 


1.7721, 


7721 


7727 


1.7727, 


7727 



TME^MFS, IN FI 



/CLEAR RESIDENT STATUS FLAS 
/PUT CDF 20 IN SWAP ROUTINE 



/MOVE DOMN PAGE 27600 



/RESTORE CDFS IN PAGE 07600 



/RETURN 



• 



• • • 
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0000 FIELD 



u//mNffNNfn(/nffnt/utNtNinfn/nn/nnnttfn/n//nut 
u//unt/ffinufuu/n/t/uu/ufnfnnnutn/n//nn/un/nf/ 

tUHtnUtmt END OF OVERLAY AREA U f f U t / 1 U f f H U ft // 1 / /f / U /t / f f 

f t N ( f n H / 1 f f 1 1 1 1 f ti ( u u f n N N 1 1 u n f N u / / / u / 1 1 n t u t / // n / u f n 
Uftntntni/nntmuut/nuitnt/N/tufnunH/uffn/ffttN 
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4600 



IFNZRO EAE < 
NOPUNCH 

IFZERO EAE « 

*460e 



04600 
04601 
04602 
04603 
04604 
0460S 
04606 
04607 
04610 
04611 
04612 
04613 
04614 
04615 
04616 
04617 
04620 
04621 
04622 
04623 
04624 
0462S 
04626 
04627 
04630 
04631 
04632 
04633 
04634 
0463S 
04636 
04637 
04640 
04641 
04642 
04643 
04644 
04645 
04646 
04647 
04650 
04651 
046S2 
04653 
04654 



0000 
7344 
3736 
3337 
1056 
7640 
5213 
1340 
3060 
1321 
3057 
6201 
1332 
3726 
1045 
7450 
5274 
7700 
5225 
4736 
3736 
1044 
7740 
5234 
4735 
5317 
2337 
5225 
4306 
4535 
5155 
3044 
7132 
3045 
3046 
1056 
7640 
1337 
7041 
1060 
7500 
7040 
1330 
7510 
7200 



/FLOATING OUTPUT ROUTINE 

/ 

FFOUT, 



FFMTi 



FOUTl, 



F0UT2, 



CUA CLL 

OCA I 

OCA 

TAD 

8ZA 

JMP 

TAD 

DCA 

TAD 

DCA 

COF 

TAD 

OCA I 

TAD 

SNA 

JMP 

SMA 

JMP 

JMS I 

OCA I 

TAD 

SMA SZA 

JMP 

JMS I 

TEN 

ISZ 

JMP 

JMS 

JMS I 

TM3 

OCA 

CLL CML 

DCA 

DCA 

TAD 

SZA 

TAO 

CMA 

TAO 

SMA 

CMA 

TAD 

SPA 

CLA 



CMA RAL 

FFNGP 

KNT 

EFLG 

CLA 

FFMT 

K6 

DAOP 

K16 

PLOW 

KMT 

OCNTP 

ACH 

F0UT3 

CLA 

.♦3 

FFNGP 

FFNGP 

ACX 

CLA 

F0UT2 

FFMPP 

KNT 
FOUTl 
SE 
FFPUTP 

ACX 

RTR 

ACH 

ACLO 

EFLG 

CLA 

KNT 

lAC 

DADP 



KK7 



/MAKE A MINUS TWO 
/AND STORE IN SIGN WORD 
/CLEAR COUNT WORD 
/IS THIS E FORMAT? 

/NO-F FORMAT 

/YES-GET A 6 

/STORE AS « OF DIGITS AFT DEC PT 

/SET FIELD WIDTH TO 14 t DECIMAL) 

/OF TO PACKAGE FIELD 
/SET # OF 5IGNF. DIGITS 
/TO 6 (DON'T PRINT 7TH) 
/DETERMINE IF #»0 

/YES-SKIP DOWN 

/NO-IS IT NEGATIVE? 

/POSITIVE 

/NEGATE # 

/NEGATIVE-SET FLAG 

/GET « INTO RANGE .1<«N<1 

/IS EXP, NEG,? 

/NO-GO ON 

/YES-MAKE « GREATER THAN 1 

/BY MULTIPLYING BY TEN fDEC.) 

/COUNT THE MULTIPLIES 

/SEE IF >1 YET 

/# IS »1-MAKE IT LESS THAN 1 

/STORE IN A TEMPORARY 

/SET FAC TO ,5 



/IS THIS E FORMAT? 

/NO-GET COUNT OF MULTIPLIES 
/NEGATE IT 

/AND ADD # OF DIGITS AFT, DC, PT, 
/MUST BE NEGATIVE 

/LIMIT # OF DIVS TO 7 




• 
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04655 


1332 


TAO 


KM7 


/RESTORE 


04656 


3306 


OCA 


SE 


/STORE AS COUNTER 


04657 


5262 


JMP 


.♦3 
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04660 


4734 




JMS 


I 


FFDVP 


/DIVIDE .5 BY TEN THAT « OF TIMES 


04661 


5317 




TEN 








04662 


2306 




isz 




SE 


/DONE? 


04663 


5260 




JMP 




.-3 


/NO-GO ON 


04664 


4733 




JMS 


I 


FFADP 


/VES-ADD IN ORIG,«"THIS IS ROUNDING 


0466S 


5155 




TM3 








04666 


4306 




JMS 




SE 


/INSURE THAT IT IS IN RANGE 


04667 


1044 


F0UT4, 


TAO 




ACX 


/SHIFT MANTISSA ACCORDING TO EXP 


04670 


7041 




CMA 




lAC 


/0«l LEFTI 1»N0 8HIFT»2»1 RIGHT,,.. 


04671 


4704 




JMS 


I 


ACSRPT 


/SHIFT RIGHT (ACX+1) PLACES 


04672 


4705 




JMS 


1 


ALIPT 


/SHIFT LEFT 2 TO CORRECT 


04673 


4705 




JMS 


I 


ALIPT 


/CME ARE LOSING BITSU} 


04674 


1337 


F0UT3, 


TAD 




KNT 


/DONE-GET COUNT OF MULS, 


04675 


3047 




OCA 




OPX 


/PRESERVE IT 


04676 


1056 




TAD 




EFLG 


/IS THIS E FORMAT OUT? 


04677 


7640 




SZA 




CLA 




04700 


5343 




JMP 




NOTE 


/NO 


04701 


3337 




DCA 




KNT 


/YES-ZERO COUNT 


04702 


1332 




TAO 




KMT 


/GET MINUS 7-FOR 2 SIGNS, PT, ♦EXP 


04703 


5347 




JMP 




ADFW 


/GO ADO FIELD WIDTH 


04704 


6072 


ACSRPTr 


ACSR 








04705 


6057 


ALIPT, 


ALl 












/ROUTINE TO 


GET 


FAC«l 




04706 


0000 


SE, 











04707 


1044 


SEl^ 


TAD 




ACX 




04710 


7750 




SPA 


SNA 


CLA 


/#»17 


04711 


5706 




JMP 


1 


SE 


/NO-RETN, 


04712 


4734 




JMS 


I 


FFDVP 


/VES-DIV, BT TEN 


04713 


5317 




TEN 








04714 


7040 




CMA 








04715 


1337 




TAD 




KNT 


/REDUCE KNT BY I 


04716 


3337 




DCA 




KNT 




04717 


5307 




JMP 




SEl 
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04720 
04721 
04722 
04723 
04724 
04725 
04726 
04727 
04730 
04731 
04732 
04733 
04734 

04735 
04736 
04737 
04740 



04743 

04744 

04745 

04746 

04747 

04750 

04751 

04752 

04753 

04754 

04755 

04756 

04757 

04760 

04761 

04762 

04763 

04764 

04765 

04766 

04767 

04770 

04771 

04772 

04773 

04774 

04775 

04776 

04777 



5150 
0016 
5600 
5160 
5172 
5076 
5137 
7777 
0007 
7760 
7771 
6000 
5722 
0135 
5600 
6135 
0000 



4743 
1337 

7500 

7240 

1327 

1057 

7041 

3734 

1060 

7450 

7040 

1734 

7500 

5723 

3306 

5364 

1331 

4720 

2306 

5362 

7346 

1736 

4720 

1337 

7500 

5724 

7041 

4725 

1060 

7650 



/CONSTANTS AND POINTERS 

0UTD6P, 0UT06 

Kt6, 16 

FUINK, JMP I FFOUT 

PRNTXP, PRNTX 

PRZRQPi PRZRO 

DSTVPP, OGTTP 

OCNTP, OCNT 

Ml, 7777 

KK7, 7 

KM20, .20 

KM7, -7 

FPADP, FFADD 

FFDVP, FFOIV 

FFPUTP»FPUTL 

FFMPP, FFMPV 

FFNGP, FFNEB 

KNT» 

K6, 6 

/CONTINUATION OF OUTPUT MAINHNE 

• 4743 

TAD 



NOTE, 



AOFWi 



KNT 
SMA 

CIA CMA 

TAD Ml 

TAD FLOW 

CMA lAC 

DCA I FFOVP 

TAD OADP 
SNA 
CMA 

TAD I FFOVP 
SMA 

JMP I PRNTXP 

OCA SE 

JMP ,*3 

TAD KM20 

JM8 I OUTDGP 

ISZ SE 

JMP .-S 

CLA CUL CMA RTL 

TAO I FFNGP 



PROCP, 



JMS 1 
TAO 
SMA 
JMP I 
CMA 
JMS I 
TAD 
SNA 



OUTDGP 
KNT 

PRZROP 

lAC 

DGTYPP 

DADP 

CLA 



/******«**tt****«******« 
/FALL THROUGH PAGE BOUND 
/•SNA CLA' MUST BE LAST 
/(CURSE YOU B.C.) 

/*****«******«********«« 



/GET COUNT OF MULTIPLIES 
/IF NOT NEG-MAKE « -2 

/MINUS 1 FOR OEC.PT 

/GET THE FIELD WIDTH 

/NEGATE IT 

/STORE WHILE WE CHECK OADP 

/GET DIGITS AFTER DEC, PT 

/DID HE SAY NO DEC. PLACES? 

/YES^TAKE AWAY 1 SINCE NO DEC, PT. 

/ADD IN REST 

/NE67 

/NO-PRINT XS-NOT ENUFF ROOM 

/STORE AS CNT OF SPACES 



/PRINT A SPACE 

/DONE? 

/NO-GO ON 

/MAKE A MINUS 3 

/YES-GET SIGNt«-2 OR 03 

/FOR PLUS OR MINUS-PRINT SIGN 

/GET MUL COUNT 

/PRINT LEADING ZERO 

/OUTPUT 'KNT' DIGITS 

/CHECK DADP FOR 

/OON'T PRINT ',' IF DAOP«ft 

************** 

ARYllJ 

LOC, ON PAGEIU 

************** 
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5000 




PAGE 










/*«*«*t*FAl.L THROUGH PAGE BOUNDARY TO HERE******* 


eszzd 


5203 




JMP 


GKNT 


/MUST BE FIRST LOC. OF PAGfcJ 


05001 


7344 


POP, 


CUA CLU 


CMA RAL 




05002 


4350 




J MS 


OUTOG 


/PRINT DEC, PT, 


05003 


1754 


GKNT» 


TAO I 


KNTP 


/GET COUNT AGAIN 


05004 


7750 




SPA SNA 


CLA 




05005 


5225 




JMP 


GO 




0S00fc 


1754 




TAO 1 


KNTP 


/GET COUNT 


05007 


7040 




CMA 




/NEGATE 


05010 


3276 




OCA 


OGTYP 


/STORE AS COUNTER 


05011 


1060 




TAD 


DADP 




05012 


7040 




CMA 




/8AHE FOR DADP 


05013 


3357 




DCA 


SEP 




05014 


5216 




JMP 


PR 


/GO ON 


05015 


4350 


PZRi 


JMS 


OUTOG 


/PRINT A ZERO 


05016 


2276 


PR| 


ISZ 


OGTYP 




05017 


7410 




SKP 






05020 


5223 




JMP 


PS 




05021 


2357 




ISZ 


SEP 




05022 


5215 




JMP 


PZR 




05023 


1754 


PS» 


TAO 1 


KNTP 




05024 


7041 




CHA 


lAC 




05025 


1060 


CD, 


TAO 


D*OP 




05026 


7540 




8MA 


SZA 




05027 


4276 




JMS 


OGTYP 




05030 


7200 




CLA 






05031 


1056 




TAD 


EFLG 




05032 


7640 




SZA 


CLA 




05033 


5266 




JMP 


DONEF 


/DONE 


05034 


4344 




JMS 


OUT 




05035 


0305 




305 




/PRINT 'E* 


05036 


1047 




TAD 


OPX 


/GET PRESERVED COUNT OF MULS 


05037 


7740 




SMA SZA 


CLA 


/DETERMINE SIGN 


05040 


7326 




CLA CLL 


CML RTL 


/MAKE A 2 


05041 


4344 




JMS 


OUT 




05042 


0253 




253 




/PRINT MINUS OR PLUS SIGN 


05043 


1334 




TAO- 


KM144 


/SET TO DIV BY 100 


05044 


3050 




DCA 


OPH 




05045 


7344 




CLA CLL 


CMA RAL 


/SET LOOP COUNTER 


05046 


3276 




OCA 


OGTYP 




05047 


1047 




TAD 


OPX 


/GET THE COUNT 


05050 


7510 




SPA 






05051 


7041 




CMA 


lAC 


/NEGATE IF NEGATIVE 


05052 


3046 


LOOP. 


DCA 


ACLO 


/STORE FOR OIV. ROUTINE 


05053 


3045 




DCA 


ACH 


/HI ORD. MUST BE ZERO 


05054 


7100 




CLL 




/PREVENT DIVIDE OVERFLOWil 


05055 


4736 




JMS I 


0V24PT 


/DIVIDE BY 100 


050S6 


1046 




TAD 


ACLO 


/GET THE QUOTIENT 


05057 


4350 




JMS 


OUTOG 


/OUTPUT HUNDREDS PLACE 


05060 


1335 




TAD 


KM12 


/NOW DIV, BY 10 


05061 


3050 




OCA 


OPH 




05062 


1045 




TAO 


ACH 


/DIV, REM, BY 10 


05063 


2276 




ISZ 


DGTYP 


/DONE? 


05064 


5252 




JMP 


LOOP 


/NO-GO DO CALCULATE , PRINT 



TENS PL4CE 
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05063 «350 JMS OUTDG /VE5-REMtONES PiACE) IS IN AC-PRINTIT 
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B5066 


1055 


OONEf, 


TAD 


SWIT2 


/SHOULD WE PRINT CR/LF? 


0S0ft7 


7650 




SNA 


CLA 




05070 


5742 




JMP I 


FUING 


/NO 


05071 


4344 




JM8 


OUT 




0S072 


0215 




215 






05073 


4344 




JMS 


OUT 




05074 


0212 




212 




■ 


05075 


5742 


/ 

/OUTPUT 


JMP 1 


FLING 








DIGITS 


OF FAC 


BY MULTIPLYING 8Y TEN 






/THE HIGH ORDER 


OVERFLOW IS THE DIGIT 


05076 


0000 


DGTYP, 









05077 


7041 




CMA 


lAC 




05100 


3357 




OCA 


SEP 


/STORE COUNT PASSED 


05101 


1045 


DTI, 


TAD 


ACH 


/GET FAC AND STORE FOR LATER 


05102 


3050 




OCA 


OPH 




05103 


1046 




TAD 


ACLO 




05104 


3051 




OCA 


OPL 




05105 


4740 




JMS I 


ALIPP 


/SHIFT FAC LEFT 1 » FAC*2 


05106 


7004 




RAU 




/OVERFLOW TO TM3 


05107 


3355 




DCA 


TM3 




05110 


4740 




JMS I 


ALIPP 


/SHIFT LEFT AGAIN ■ FAC*4 


05111 


1355 




TAD 


TM3 


/SHIFT OUT OVERFLOW 


05112 


7004 




RAl 






05113 


3355 




OCA 


TM3 




05114 


3042 




DCA 


AC2 


/MUST BE FOR OAOD 


05115 


4741 




JMS I 


OAODP 


/ADD ORIG FAC ■ FACorS 


05116 


7004 




RAL 




/ADO OVERFLOW TO TM3 


05117 


1355 




TAD 


TM3 




05120 


3355 




DCA 


TM3 




05121 


4740 




JMS I 


ALIPP 


/SHIFT FAC 1 LEFT • FAC*10n 


05122 


1355 




TAD 


TM3 


/OVERFLOW IN TM3 IS FIRST DIGI 


05123 


7004 




RAL 






05124 


2337 




ISZ 


OCNT 


/DONE ALL SIGNIF. DIGS.? 


05125 


5330 




JMP 


.+3 


/NO-GO ON 


05126 


7240 




CUA 


CMA 


/YES-PRINT ZEROS 


05127 


3337 




DCA 


OCNT 


/FROM NOW ON 


05130 


4350 




JMS 


OUTDG 


/PRINT DIGIT (HI ORD. OVRFLOW) 


05131 


2357 




ISZ 


SEP 


/DONE REQUIRED? 


05132 


5301 




JMP 


OTl 


/NOPE 


05133 


5676 




JMP I 


OGTYP 


/YUP 


05134 


7634 


KM144, 


-144 






05135 


7766 


KM12, 


-12 






05136 


5745 


0V24PTI 


0V24 






05137 


0000 


DCNT, 





/COUNT 


OF SIGNF, DIGITS. 


05140 


6057 


ALIPP, 


All 






05141 


6157 


OAOOP, 


OAOD 






05142 


4722 


FLING, 


FUINK 
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05143 4776 



05144 
05145 
05146 
05147 



0000 
1744 
3413 
5744 



PROCPP» PROCP 

/ 

/OUTPUT ROUTINE 

/ 

OUT, 

TAD I OUT 
OCA I XR3 
JMP I OUT 



/GET THE CHAR 
/STORE CHAR IN 



INTERMEDIATE BUFFER 



/OUTPUT DIGIT 
/ 

05150 0000 OUTDG, 

05151 4344 JMS 

05152 0260 260 

05153 5750 JMP I 



OUT 
0UT06 



/RfeTN 



05154 
05155 
05156 
05157 
05160 
05161 
05162 
05163 
05164 
05165 
05166 
05167 
05170 
05171 



4737 

0000 
0000 
0000 
7200 
1057 
7040 
3357 
2357 
7410 
5266 
4344 
0252 
5364 



KNTP» 
TM3, 

SEP, 

PRNTX, 



PRNTXlj 



KNT 







CUA 

TAD 

CMA 

DCA 

ISZ 

SKP 

JMP 

JMS 

252 

JMP 



FLOW 

SEP 
SEP 

DONEF 
OUT 

PRMTXI 



/GET FIELD WIDTH 
/MUST bE NEGATIVE 
/USE AS COUNTER 
/DONE ALL? 
/NO-GO ON 
/VES-RETN. 
/PRINT ASTERISK 
/ASTERISK 



05172 
05173 
05174 



7200 
4350 
5743 



/PRINT 

/ 

PRZRU, 



A LEADING ZERO 



CLA 
JMS 
JMP I 



OUTOG 
PROCPP 
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/FU0ATIN6 POWT INPUT ROUTINf 
/ 



ftsiei 
tsies 
es20] 

a520« 
11209 

esaer 
naif 

09111 
•9112 
09219 
09114 
09219 
092 U 
09217 
•9120 
09121 
09t22 
09221 
05224 
•9129 
•9121) 
•9227 
fl9I9« 
•9211 
•9212 
•9211 
•9214 
•9219 
•9216 
•9217 



03240 1909 



09241 
09242 
09241 
05244 
09249 
09246 
05247 
05250 
05251 
05252 
05253 
05254 
05255 
05256 
0.5257 



2300 

4703 
7240 
1300 
1053 

1306 
7650 
4322 
5260 

1043 
7106 
1043 
7104 
1315 
5250 



OECONVi 
P2O0f 

DICNV, 

oeeoN, 



5200 

0000 FFINt 

7240 

1711 

7040 

3300 

6201 

1092 

1044 

1««6 

•!•• 

1049 

1109 

4122 

9212 

2992 

2U9 

4719 

9117 

4919 

1179 

4534 

9914 

4916 

4712 

1179 

9214 

2711 

9241 

2119 

2119 

7610 

9211 



PAGE 



CLA 

OCA 

CMA 

DC A 

eof 

DCA 
DCA 
OCA 

2«a 

OCA 
DCA 
JM9 
JHP 
I8Z 
X9Z 
JH9 
TEN 



CMA 
I PDVPT 

. SI6NF 

OSWIT 

ACX 

ACkO 

ACH 

0NUM9R 
6CHR 
FPINI 
08MIT 
ONUMSR 
I PMPYU 

I PPUTL 



PPINl* 



PPPTMl 

JNS I P6ETL 

7P 

JMS X PNORL 

JMS X PAOOLl 

PPPTMl 

J««P 



FX602i 



GETEi 



XiZ 

aMP 
xsz 

191 

8KP 
JMP 

OCA 

XSZ 

JMS 
CWA 
OCA 
TAD 
TAO 
SNA 
JMS 
JMP 
TAD 
CLL 
TAO 
CU 
TAO 
JMP 



DECON 

PDVPT 

PX602 

TPl 

TPl 

CLA 

DECNV 

ONUMBR 

SXGNF 

fPNESP 

CMA 

SIGNF 

CHAR 

KME 

CLA 

6CHR 

EOON 

TM 

RTL 

TM 

RAL 

TPl 

6ETE 



/INITXAUIZE PERIOD SWITCH TO -1 
/SET SIGN SWITCH TO -1 

/OF TO PACKAGE FIELD 
/ZERO CONVERSION SWITCH 
/ZERO OUT THE FACJ 



/ZERO # OF DIGITS SINCE DEC, PT, 

/GET A CHAR, FROM TTY. 

/TERMINATOR- 

/DIGIT'BUHP CONVERSION SWITCH 

/BUMP « OF DIGITS** IS STORED IN 

/"FMPY TEN" 



/«FPUT I 
/«FSET tP« 

/»FNOR» 
/"FAOD I 



TM3PT" 



TM3PT' 



/GO ON 

/HAVE ME HAD A PERIOD YETT 

/YES«60 ON 

/NO-IS THIS A PERIDOT 



/YES-ZERO DIG, COUNT AFTER DEC, PT, 

/AND GO CONVERT REST 

/NO-TERMINATOR-ZERO COUNT OF 

/DIGITS AFTER DECIMAL POINT, 

/IS » NEGATIVE7(DID WE GET •* SIGN?) 

/YES-NEGATE IT 

/RESET SIGN SWITCH FOR EXP, 

/NO-WAS THE TERMINATOR AN »E»7 



/YES-GET A CHAR, OF EXPONENT 
/END OF EXPONENT 
/GOT DIG, OF EXP-STOREO IN TPl 
/MULT. ACCUMULATED EXP BY 10 



/ADO DIGIT 
/CONTINUE 




t 
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05260 
05261 
05262 
05263 
05264 
0S265 
05266 
05267 
05270 
05271 
05272 
05273 
05274 
05275 
05276 
05277 
05300 
05301 
05302 
05303 
05304 
05305 
05306 
05307 
05310 
05311 
05312 

05313 

05314 
05315 
05316 
05317 

05320 
05321 



1043 
2300 
7041 
70ai 
1305 
7141 
7510 
7161 
7040 
3305 
7004 
1307 
3300 
2305 
5300 
5600 
0000 
5317 
5275 
6135 
5155 
0000 
7473 
4710 
5600 
5722 
6000 

0012 
0013 
0000 



EDON, 



FCNT# 



SIGNF, 



FFNEGP, 

TM3PT, 

DNUMBR, 

KMEi 

MOV, 

FMPyi.L, 

FOVPT, 

FAOOULi 

KK12. 

TPl, 



0004 TEN, 

2400 

0000 



TAD 

ISZ 

CMA 

CMA 

TAD 

CLL CMA 

SPA 

CU CMA 

CMA 

OCA 

RAU 

TAD 

DCA 

ISZ 

JMP 

JMP I 



TEN 

JMP 

FFNEG 

TM3 



• 305 

JMS I 

FFMPV 

FFDIV 

FFAOO 

12 
13 




4 

2400 
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TM /GET EXPONENT 

SIGNF /WAS EXPONENT NEGATIVE? 

lAC /YES-NEGATE IT 

lAC /AND CALC. ONUMBB - EXPON, 

DNUMBR /GET « TIMES TO DIV MANTISSA BY TEN 

lAC 

/RESULT POSITIVE? 
CMU lAC /NO-MAKE POS, AND SET LINK 

/NEGATE FOR COUNTER 
DNUMBR /AND STORE 

/LINK«1»DIV»«0-MUL, # 8Y TEN 
MOV /FORM CORRECT INSTRUCTION 
SIGNF /AND STORE FOR EXECUTION 
DNUMBR /DONE ALL OPERATIONS? 
SIGNF /NO 
FFIN /YES-RETURN 

/NO- MUL OR DIV, MANTISSA 

/BY TEN 
FCNT /GO ON 



,+1 /THESE 3 WOS. MUST BE IN THIS ORDER 

/iiniMinniuii 



/OS/8 BASIC RUNTIME SVSTEM 
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/ROUTINE TO GET A CHAR 
/OR A TERMINATOR. 
/RETURN TO CAUL ♦ I IF 
/THIS ROUTINE MUST NOT 



05322 


0000 


GCHR, 





05323 


3043 




DCA TM 


0S324 


4347 




JMS INPUT 


05325 


1053 




TAD CHAR 


05326 


1362 




TAD PLUS 


05327 


7450 




SNA 


05330 


5335 




JMP OECONl 


05331 


1363 




TAD MINUS 


05332 


7640 




SZA CLA 


05333 


5336 




JMP .♦S 


05334 


3300 




OCA SIGNF 


05335 


4347 


OECONl, 


JMS INPUT 


05336 


1053 




TAD CHAR 


0S337 


1346 




TAD K7S06 


05340 


7100 




CLU 


05341 


1313 




TAD KK12 


05342 


3315 




DCA TPl 


05343 


7430 




SZL 


05344 


2322 




ISZ 6CHR 


05345 


5722 




JMP I GCHR 


05346 


7506 


K7506, 
/ 

/INPUT 

/ 

INPUT, 


7506 






ROUTINE-IGNORES 


05347 


0000 





05350 


4542 




JMS 1 GETCML 


05351 


1052 




TAD OSWIT 


05352 


7640 




SZA CLA 


05353 


5360 




JMP lOUT 


05354 


1053 




TAD CHAR 


05355 


1361 




TAD M240 


05356 


7650 




SNA CLA 


05357 


5350 




JMP INPUT«1 


05360 


5747 


lOUT, 


JMP I INPUT 


05361 


7540 


M240, 


-240 


05362 


7525 


PLUSr 


-253 


05363 


7776 


MINUS, 


253-255 






/ROUTINE TO DECIDE CALL 

i 


05364 


0000 


PATCHff, 





05365 


7440 




SZA 


05366 


5371 




JMP RTN2 


05367 


1037 




TAD FF 


05370 


7640 




SZA CLA 


05371 


2364 


RTN2, 


ISZ PATCMF 


05372 


5764 




JMP I PATCHF 



FROM THE TTY AND SEE IF IT 15 DIGIT 

TERMINATOR, TO CALL ♦ 2 IF DIGIT 
MODIFY THE MQU 

/STORE ACCUMULATED EXPONENT (MAYBE) 

/GET A CHAR FROM TTY, 

/PICK IT UP 

/WAS IT PLUS SIGN? 

/YES-GET ANOTHER CHAR, 
/NO WAS IT MINUS SIGN? 



/YES-FLIP SWITCH 
/GET A CHAR. 

/SEE IF ITS A DIGIT 



/STORE FOR LATER 

/DIGIT? 

/YES-RETN, TO CALL*2 

/NO-RETN, TO CALL*l 



LEADING SPACES 



/USE OUR ROUTINE TO GET CHAR 

/GET TERMINATOR 

/VALID INPUT YET? 

/YES-CONTINUE 

/NO-GET CHAR 

/COMPARE AGAINST SPACE 

/IS IT A SPACE? 

/YES-IGNORE IT 

/RETURN 



ING MODE IN LIEU OF "SPECIAL MODE" PROBLEMS 



/IS AC EMPTY 

/NO-THIS IS ALWAYS SI MODE WITH AODR IN AC 

/YES-GET SPECIAL MQOE FLIP-FiOP 

/IF ON, THE ZERO AC MEANS ADDRESS OF B 

/USE AC AS ADDRESS OF OPERAND 

/RETURN 



• 



# 
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s«ee 



0S400 
05401 
0S402 
05403 

05«e« 

05«05 

0540» 
05407 

0S410 

es4it 



05412 
05413 
05414 
05415 
0S4U 
05417 
05420 
05421 
85422 
05423 
05424 
05425 
0542* 
05427 
05430 
05431 
05432 
01433 
05434 
05435 
05436 
05437 
054«0 
05441 
V5442 



4555 
1«00 
4644 
6201 
4610 
1200 
5611 
6135 
6125 



4555 

1612 
4644 
1046 
3051 
1442 
3046 
1044 
7141 
1047 
3044 
3047 
1045 
3S42 
1050 
3045 
1042 
3950 
6201 
1212 
3646 
1247 
3645 
5643 



/WHICH MODE? 

/CALUEO BY USER-GET ADDR, OF OP. 

/GO PICK UP OPERAND 

/NEGATE FAC 
/AND 60 ADO 



PAGE 
/ 

/INVERSE FtOATING SUBTRACT-USES FLOATING ADD 
/llFSWlUoTHIS IS OP-FAC 

/ 

FF8U81, 

JH8 I PATCMP 
TAD I FFSUBl 
JM8 I ARGETL 

cor 

JHS I FFNEGA 

TAO FFSUBl 

JMP I SUB0P 
FPNCGAf FFNC6 
8UB0P. 8UB0 
/ 

/INVERSE FLOATING DIVIDE 
/FSMlTCHal 
/THIS IS OF/FAC 
/ 
FFDIVlf 

JMS I PATCHP 

TAO I FFOIVl 

JMS I ARGETL 

TAO ACLO 

DCA OPU 

TAD I AC2 

OCA ACLO 

TAO ACX 



cut CHA lAC 



TAD 
DCA 
OCA 
TAO 
OCA 
TAO 
OCA 
TAO 
DCA 
COF 
TAO 
OCA 
TAO 
OCA 
JMP 



OPX 
ACX 
OPX 
ACH 
ACS 
OPH 
ACH 
AC2 
OPH 

FFOIVl 

FFOP 

KfOl 

MOSETP 

MOIP 



/MHICH MODE OF CALL? 
/CALLED BY USER-GET AOOR. 
/PICK UP OPERAND 
/8MAP THE FAC AND OPERAND 
/THERE IS A POINTER TO OPL 
/IN AC2 LEFT FROM ARGET SUBR, 

/MIGHT AS WELL SUBTRACT THE 
/EXPONENTS HERE (SAVES A MORD) 
/THEN ZERO OPX SO WILL NOT 
/HESS UP WHEN ITS DONE AGAIN 
/LATE1» (SEE OIV, ROUTINE) 

/NOW SWAP HIGH ORDER MANTISSAS 



/DF TO PACKAGE FIELD 

/NOW KLUDGE UP SUBROUTINE LINKAGE 



/GO SET UP AND DIVIDE 



05443 

05444 
B5445 

05446 
05447 



5452 

6200 
5450 
5722 

5726 



MOlPi 

ARGETL* 

MOSITPf 

FFOP* 

KFOl» 



MOl 

ARGfT 

MOSET 

FFOIV 

FFOl 
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/HDSET-8ET8 
/ALSO SHIFTS 
/EXIT WITH E 
/CALCULATION 
/DATA FIELD 

0^410 0000 MDSET, 

05«5l 4703 JMS 

05452 6201 MDl, CDF 

05453 7344 CLA 

05454 3043 DCA 

05455 1050 TAD 
0545fc T700 SMA 
0S4S7 5262 JMP 

05460 4702 JMS I 

05461 2043 IS2 

05462 1051 TAD 

05463 7104 CLL 

05464 3051 OCA 

05465 1050 TAO 

05466 7004 RAL 

05467 3050 DCA 

05470 3041 OCA 

05471 1045 TAD 

05472 7700 SMA 

05473 5277 JMP 

05474 4701 JMS I 

05475 2043 ISZ 

05476 7000 NOP 

05477 1047 LEV, TAD 

05500 5650 JMP I 

05501 6135 FFNESK, FFNEG 

05502 6146 OPNEGP, OPNEG 

05503 6200 ARGETK, APGET 



UP SIGNS FOR MULTIPLY AND DIVIDE 

OPERAND ONE BIT TO THE LEFT, 
XPONENT OF OPERAND IN AC FDR EXPONENT 
-CALLED WITH AODKESS OF OPERAND IN AC AND 
SET PROPERLY FOR OPERAND. 



I ARGETK /GET ARGUMENT 

/OF TO PACKAGE FIELD 
CLL CMA RAL /SET SIGN CHECK TO -2 



TM 
OPH 
CLA 
.♦3 

OPNEGP 

TM 

OPL 

RAL 

OPL 

OPH 

OPH 

ACl 

ACH 

CLA 

LEV 

FFNEGK 

TM 

OPX 
MDSET 



/IS OPERAND NEGATIVE? 

/NO 

/VES-NEGATE IT 

/BUMP SIGN CHECK 

/AND SHIFT OPERAND LEFT ONE BIT 



/CLR. OVERFLOW WORF OF FAC 
/IS FAC NEGATIVE 

/NO-GO ON 

/YES-NEGATE IT 

/BUMP SIGN CHECK 

/MAY SKIP 

/EXIT WITH OPERAND EXPONENT IN AC 



05504 
05505 
05S06 
05507 
05510 
05511 
05512 
05513 
05514 
05515 
05516 
05517 
05520 



1042 
7141 
1045 
7420 
5733 
7100 
3045 
4732 
1041 
7500 
5327 
7110 
3045 



/CONTINUATION 
/ 



OF FLOATING DIVIDE ROUTINE 



FDl, 



0VL1» 



TAD 
CLL 
TAO 
SNL 
JMP 
CLL 
OCA 
JMS 
TAO 
SMA 
JMP 
CLL 
OCA 



CMA 



AC2 
lAC 

ACH 

DVOPSP 

ACH 

DV24P 

ACl 

FO 

RAR 

ACH 



/NEGATE HI ORDER PRODUCT 



WITH REMAINDER OF FIRST OIV, 



/COMPARE 

/WELL* 

/GREATER THAN REM. -ADJUST QUOT OF 1ST DIV. 

/OK-DO (REM-(0*OPL))/OPH 

/FIRST STORE ADJUSTED PRODUCT 

/DIVIDE BY OPH (HI ORDER OPERAND) 

/GET QUOT. OF FIRST DIV, 

/IF HI ORDER BIT SET-MUST SHIFT 1 RIGHT 

/NO-ITS NORMALIZEO-OONE 

/MyST SHIFT RIGHT 1 

/STORE IN FAC 




• 



• 



/08/» BASIC RUNTIME SYSTEM 



05521 10«6 

05522 7010 
0SS2] 3046 
0SS24 2044 



05525 7000 

05526 1045 

05527 3045 

05530 5731 

05531 5742 

05532 5745 

05533 6315 



05534 
05935 
05536 
0SS37 
05540 
05541 
05542 
05543 
05544 
05545 
05546 



3044 
7450 
3046 
3045 

4732 
1046 
7141 
3046 
7420 
7040 
5314 



YSTEM 


Pt 
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TAO 


ACLO 


/SHIFT LOW ORDER RIGHT 


RAR 






OCA 


ACUO 


/STORE BACK 


I8Z 


ACX 


/BUMP EXPONENT 


NOP 






TAD 


ACM 




OCA 


ACH 


/STORE HIGH ORDER RESULT 


JMP I 


FDDONP 


/GO LEAVE DIVIDE 



FO, 



POOONPf FOOON 

DV24P, 0V24 

DVOPSP> OVQPS 

/ 

/CONTINUATION OF ROUTINE TO ADJUST OUOT, OF FIRST OIV. 

/OBADl IS ONLY EXECUTED ON DIVIDE OVERFLOW-OTHERWISE THE 

/ROUTINE STARTS AT DV0P2 



/END OF FLT6, DIV. ROUTINE 
/ROUTINE TO DO A 24Xi2BIT DIVIDE 
/ROUTINE TO ADJUST OUOT OF FIRST DIV, 



/ 

DBADl, 

DV0P2i 



DC A 

SNA 

OCA 

OCA 

JH8 I 

TAD 



ACX 

ACLO 
ACH 
DV24P 
ACLO 



CLL CHA lAC 



DCA 
SNL 
CMA 
JMP 



ACLO 



OVLl 



/DIVIDE 0VERFL0«ZERO ALL 

/IS IT ZEROt 

/YES-MAKE WHOLE THING ZERO 

/DIVIDE EXTENDED REM, BY HI DIVISOR 
/NEGATE THE RESULT 



/IF OUOT, IS NON-ZERO, SUBTRACT 
/ONE FROM HIGH ORDER QUOT, 
/CO TO IT 



/ROUTINE TO BUMP CHARACTER NUMBER 

/USED BY CHAR PACKING ROUTINES, BUT ITS HERE AS A PATCH 



5573 

05573 0000 CNOBMLf 

05574 1563 

05575 1076 

05576 3563 

05577 5773 



• 5573 



TAO I WORD0 
TAD K0100 
OCA I WORD0 
JMP I CNOBML 



/HEADER WORD 

/ADD 1 TO THE COUNT BITS 

/DONE 
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S600 



n/ 



<,* 



esfc00 

05601 
0Sft02 
05ft03 

- 05605 



4Si5 

1600 
«77a 



PA&E 
/FLOATINe MULTIPLY 
FFMPY, 
^^ JMS I 

TAD 1 

JMS 1 



•DOES 2 24X12 BIT MULTIPLIES 



PATCHP 
FPMPY 
MDSETK - 
ACX 

— -A«- 



/WHICH MODE OF CALL? 

/CALLED BY USER-GET OPERAND ADDR, 

/SET U P FOR MPY-OPX IN AC ON RETN, 



05666 
0S607 
0S610 
05611 

0ffl3 
05614 
05615 
05616 
05617 
05620 
05621 
■^05622 

^S6?r 

05624 
05625 

0S626 



3345 

3042 
1045 
J650 

30 44 , 



OCA 
OCA 
TAD 
SNA 
OCA 



0V24 
AC2 
ACH 
CLA 
_-A£JL_ 



/60 £XPONENT~A0t)IT10N' 
-itAlQRE FINAL EKPDNEMT 



/ZERO TEM STORAGE F0» MPV ROUTINE 
/IS FAOa? 



/YE5-ZEB0 tX P O N C N T 



4243 
10S0 
3051 

4243 
1042 
3046 
1345 
3045 



RTZRO, 



fssrr 

05630 

05631 
05632 

05633 

05634 



" 1045 
7004 
7700 
5235 



3041. 
2200 
2043 
5600 
4773 
5600 



iroONE/ 



05635 
05636 
05637 

05640 
05641 
05642 



7040 
1044 
3044 
4642 
5230 
6057 



SHLFT, 



JHS 

TAO 

DCA 

JMS 

TAD 

OCA 

TAD 

DCA 

TTfr 

RAL 

SMA 

JHP 

TS^r 

ISZ 
ISZ 

J MP 
JMS 



MP24 

OPH 

OPL 

MP24 

AC2 

ACLO 

Oy24 

ACM 



/NO-MULTIPLY FAC BY LOW ORDER 
/NOW MULTIPLY FAC BY HI ORDER 



OPR, 
MULTIPLIER 



/STORE RESULT 
/LOW ORDER 
/HIGH ORDER 



BACK IN FAC 



ACH 

CLA 
SHLFT 



/DO ViE NEED TO NORMALIZE? 



/YES-00 IT FAST 



ACT /NU-ZtHO OVERFLOW WDCOO I NEED THIS7tt) 

FFMPY /BUMP RETURN POINTER 

TM /SHOULD RESULT BE NEGATIVE? 

I FFMPY /NOPE-RETN. 

I FFNEGR /YES-NEGATE IT 

J fFMPV /^tWHWl ■ 



CHA 
TAD 
OCA 
JMS 
JHP 
ALl 



I 



ACX 
ACX 

ALIPTR 
MOONE*l 



/SUBTRACT 1 FROM EXP, 






i— '05 643 
05644 
05645 
05646 
05647 
05*50 
05651 
05#52 
05653 
05654 
05655 
05656 
05657 



0000 
1375 
3047. 
1051 
7440 
5254 
3041 
_-S6«i 
1051 
7010 
3051 
7420 
5266 



ALlPTRi 

/ 

/24 BIT BY 12 

/MULTIPLICAND 
J^SULT LEFT 



/SHIFT 
/DONE, 



FAC LEFT 1 BIT 



MP24r 



BIT MULTIPLY, MULTIPLIER 
IS IN ACH AND ACLO 
IN DV24,AC2, AND ACl 



IS IN OPL 



MPLPf 
MPLPl. 





TAD 

OCA 

TAD 

8ZA 

JMP 

OCA 

TAO 
RAR 
DCA 

SNL 
JMP 



KKM12 

OPX 

OPL 



/SET UP^2 BIT COUNTER 
/IS MULTIPLIER-07 



MPLPl /NO-GO ON 

ACl /YES-INSURE RE5ULT»0 

I— MPi4 /RETURN. _^ 

OPL /SMTTt a BIT OUT OF LOW ORDER 

/OF MULTIPLIER AND INTO LINK 
OPL 

/WAS IT A 17 
MPLP2 /NO-0-JUST SHIFT PARTIAL PRODUCT 




t 




• 



fe 



* 
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0S660 
05661 
05662 

05663 
0S664 
05665 
^ 05666 
05667 
05670 
05671 
05672 
05673 
05674 
05675 
05676 
05677 
05700 







^' 



(^ 



05722 
05723 
05724 
05725 

05726 
05727 
05730 

ifmv~ 

05732 
05733 
05734 
05735 
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/YE8-A00 MULTIPLICAND TO PARTIAL PRODUCT 
VLOW ORDER 

/PROPAGATE CARRY 
/HI ORDER 

/NOW SHIFT PARTIAL PROD. RIGHT 1 BIT 



/I BIT OF OVERFLOW TO ACl 

/DONE ALL 12 MULTIPLIER BITS? 

/NO*SO ON 

/YES-RETURN 



ROUTINE-FFOIV MUST BE AT LOC. 1722 



/STORE BACK MULTIPLIET 
/GET PRODUCT SO FAR 
/WAS MULTIPLIER BIT A 1? 
/NO-JUST SHIFT THE PARTIAL PRODUCT 
/YES-CLEAR LINK AND ADO MULTIPLICAnO 
/TO PARTIAL PRODUCT 

/SHIFT PARTIAL PROOUCT-THIS IS HI ORIER 
/RESULT-STORE BACK 
/SHIFT A BIT OUT OF MULTIPLIER 
/AND A BIT OR RESLT, INTO IT (LO ORO 
/DONE ALL BITS? 
i6Nfi5Ume_&A£K 



(K^ 










/l ES-LOW ORDER P RO£ , OF QUPT. X QPL 



0000 

1722 "* 
4774 



7041 
1044 
3044 



FOIP, 
/ 

/FLOATING 
/USES THE 
FFOIV, 

JMS 
TAD 
JMS 



FOIP 
/POINTER 



GATE AND STORT 

■mnjPiHn ^ C ARRY ' 

/GO ON 
TO REST OF DIVIDE ROUTINE 




DIVIDE 
METHOD 



FFDl 



7141 
3050 

4345 
1046 

-01136 ifliLl__. 

B573 7 1376 

.-. 057Jre 3200 

W^"T41 5311 




ROUTINE 

OF TRIAL DIVISION BY HI ORDER 

/(USED AS A TEM. BY I/O ROUTINES) 

/WHICH MODE OF CALL? 

/CALLED BY USER-GET ARG, ADDB, 

/GO SET UP FOR DIVIDE-OPX IN AC ON RETN. 

/NEGATE EXP. OF OPERAND 

/ADO EXP OF FAC 

i^ ORE AS FINAL EXPONENT . 



PATCHP 
FFDIV 
MDSETK 
lAC 
ACX 
ACX 



/NEGATE HI ORDER 
/AS DIVISOR 



OP, FOR USE 



DIV, — (AC jitiyEL0)/OPH 

"PWT, forlatIr^ 



FFMPY 
OVLPl 



m 



counter for 12 bit MULTIPLY tT///^' 
/TO MULTIPI^Y QU07. OF DIV. Bi J ,-, 
/LOW ORDER OF OPERAND (OPLJiVA/V 



-=> 



^^9la.|- 
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^'l 



A 



sjl^ 



h 



^ 



/END OF FLOATING DIVIOE-FUDGE SOME 
/STUFF THEN JUMP INTO MUUTIPUY 
/ 
05T«2 1322 FDDON, TAO FFDIV /STORE RETN. ADDR. IN MULT ROUTINE 
85743 3200 OCA FFMPY 

05744 5227 JMP MDONE /GO CLEAN UP 

/ 

/DIVIDE ROUTINE-. 24 BITS IN ACH.ACLO ARE DIVIDED BY 12 BITS 
/IN 0P«, OPH IS ASSUMED NEGATIVE AND ,GT, ACH IN ABSOLUTE VALUE 
/ELSE-OIVIOE OVEBPL0W--WE RETURN NORMALLY WITH QUOTIENT 
/IN ACLO AND REM. IN ACH, (AC2a0 ON RETN.) 
/ 
V24, 

/CHECK THAT DIVISOR IS .GT, DIVIDEND 

/DIVISOR IN OPH (NEGATIVE) 

/IS IT? 

/NO-OIVIOE OVERFLOW 

/YES-SET UP 12 BIT LOOP 

/g'o begin DIVIDE 

/CONTINUE SHIFT OF FAC LEFT 

/RESTORE HI ORDER 

/NOW SUBTRACT DIVISOR FROM HI ORDER 

/DIVIDEND 

/GOOD SUBTRACT? 

/YES-RESTORE HI DIVIDEND 

/NO-DON'T RESTORE"OPH.GT,ACH 

/SHIFT FAC LEFT I BIT-ALSO SHIFT 

/I BIT OF QUOT, INTO LOW ORD OF ACLO 

/DONE 12 BITS OF QUOT? 
/NO-GO ON 
/YES-RETN W/AC2*0 



05745 


0000 


DV24, 







05746 


1045 




TAD 


ACH 


05747 


1050 




TAD 


OPH 


05750 


7630 




82L 


CLA 


05751 


5777 




JMP I 


DVOVR 


05752 


1376 




TAD 


KM13 


05753 


3042 




OCA 


AC2 


05754 


5365 




JMP 


DVl 


05753 


1045 


DV2, 


TAD 


ACH 


a5756 


7004 




RAL 




05757 


3045 




OCA 


ACH 


05760 


1045 




TAD 


ACH 


057fcl 


1050 




TAD 


OPH 


0S76S 


7430- 




SZL 




0SJ<.3 


3045. 




OCA 


ACH 


W764 


7200 




CLA 




05765 


1046. 


DVl, 


TAO 


ACLO 


05766 


7004 




RAL 




05767 


3046 




OCA 


ACLO 


05770 


2042 




ISZ 


AC2 


05771 


5355 




JMP 


0V2 


05772 


5745 




JMP I 


0V24 


■85773 


6135 


FFNEGR) 


FFNEG 




05774 


5450 


MDSETK* 


MOSET 




05775 


7764 


KKM12, 


-14 




05776 


7763 


KMl3f 


-IS 




05777 


6355 


OVOVR, 


OV 






• 



• 



t 



\ 






• 
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6000 



PAGE 



;^ 







/FLOATING AOO 

i 






06000 


0000 


FFAOO, 











06001 


4SM.^3 


JMS 


I 


PATCMP 


/WHICH MODE FO CALL7 


06002 


1600 




TAO 


I 


FFADO 


/CALLED BY USER-GET AOOB, OF OPR. 


06003 


4727- 




JMS 


I 


ARGETP 


/PICK \i9 OPERAND 


06004 


6201 


FA01» 


CDF 






/OF TO PACKAGE FIELD 


06005 


1050- 




TAO 




OPH 


/IS OPERAND ■ 


06006 


7650 




SNA 




CLA 




06007 


5227 




JMP 




DONA 


/YES-DONE' 


06010 


1045 




TAD 




ACM 


/NO-IS FACi07 


06011 


7650 




SNA 




CLA 




06012 


5223 




JMP 




OOADD 


/YES-DO AOD 


06011 


1044 




TAD 




ACX 


/NO-DO EXPONENT CALCULATION 


06014 


7141- 


' 


CLL 


CMA lAC 




06015 


1047 




TAO 




OPX 




0«016 


7S40 




SKA 




SZA 


/WHICH EXP, GREATER? 


06017 


52 31 




JMP 




FACR 


/OPERANDS-SHIFT FAC 


06020 


7041 




CMA 




lAC 


/FAC»S-8MIFT 0PE8AND»0IFFRNCE*l 


06021 


4234 




JMS 




OPSR 




06022 


4272 




JMS 




ACSR 


/SHIFT FAC ONE PLACE RIGHT 


06023 


1047 


OOAOO, 


TAO 




OPX 


/SET EXPONENT OF RESULT 


060J4 


3044 




OCA 




ACX 




06025 


4357 




JMS 




OAOD 


/DO THE ADDITION 


06026 


4776 




JMS 


I 


FNORP 


/NORMALIZE RESULT 


06027 


2200 


DONA» 


IS2 




FFAOO 


/BUMP RETURN 


06030 


5600 




JMP 


I 


FFAOO 


/RETURN 


06031 


4272' 


FACRi 


JMS 




ACSR 


/SHIFT FAC * 0IFF,*1 


06032 


4234 




JMS 




OPSR 


/SHIFT OPR, 1 PLACE 


06033 


5223 


/ 

/OPERAN 


JMP 




DOAOO 


/DO ADDITION 






SHIFT 


RIGHT-ENTER WITH POSITIVE COUNT-1 






/IN AC 










06034 


0000 


OPSRi 


0- -- 






/ 


0603S 


7040 




CM* 






/- (COUNTED TO SHIFT COUNTER 1 


06036 


3040 




OCA- 




AC0 


I 


06037 


1050 


L0P2» 


TAD 




OPH 


/GET SIGN BIT I 


06040 


7004 




RAL 






/TO LINK 


. 06041 


7200 
1050 




CLA 
TAO 




OPH 




^ 06042 


/GET HI MANTISSAS- "---^ 


06043 


7010 




RAR 






/SHIFT IT RIGHf, PROPAGATING SIGN ^ 


06044 


3050 
1051 




OCA 
TAD 




OPH 
OPL 


/STORE BACK ^^^--— — -^ 


\ 06045 


/STORE LO ORDER BACK 


' 06046 


7010 




RAR 






06047 


3051 




OCA 




OPL 


06050 


7010 




RAR 






/SAVE 1 BIT OF OVERFLOW 


06051 


3042 




OCA 




AC2 


/IN AC2 


06052 


2047/ 


''"" ^ 


ISZ 




OPX 


/INCREMENT EXPONENT 


.^^053 


7000\ 


N0P2» 


NOP 








06054 


2040 


\_— ■ 


ISZ 




AC0 


/DONE ALL SHIFTS? 


L .06055 
g^ 06056 


5237 




JMP 




L0P2 


/NO-LOOP 


5634 




JMP 


I 


OPSR 


/YES-RETN, 
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P 



\1 






iH^ 







/ 

/SHIFT 

/ 

ALl, 


FAC LEFT I BIT 




06057 


0000 


0> 






06060 


1041 




TAD 


ACl 


/GET OVERFLOW BIT 


06061 


7104 




Ci.L 


SAL 


/SHIFT LEFT 


06062 


3041 




OCA 


ACl 


/STORE BACK 


06063 


1046 




TAO 


ACLO 


/GET LOW ORDER MANTISSA 


06064 


7004 




RAL. 




/SHIFT LEFT 


06065 


3046 




OCA 


ACLO 


/STORE BACK 


06066 


1045^ 




TAB 


ACH 


/GET HI ORDER 


06067 


7004 




RAi 






06070 


3045 




OCA 


ACM 


/STORE BACK 


06071 


S6S7 


/ 

/SHIFT 

/ 

ACSRf 


JMP I 


ALl 


/RETN. 






FAC RIGHT-ENTER 


WITH COUNT-l IN AC (POSITIVE) 


06072 


0000 









06073 
06074 
06075 


7040 
3040 
1045 




CMA 
OCA 
TAD 


/AC CONTAINS COUNT-1 1 


LOPl, 


AUV 

ACH 


/ aijjjMk buvni ^^ 

ytfir SIGN BIT OF mantiss/Tx 


06076 


7004 




RAi. 




WSET UP sign propagation^ 


06077 
06100 


7200 
1045 




CLA 
TAO 








ACH 


/GET HIGH ORDER MANTISSA 


06101 


7010 




RAR 




/SHIFT RIGHT 1, PROPAGATING SIGN 


06102 


3045 




OCA 


ACH 


/STORE BACK 


06103 


1046 




TAO 


ACLO 


/SET LOW ORDER 


06104 


7010 




RAR 




/SHIFT IT 


0610S 


3046 




OCA 


ACLO 


/STORE BACK 


06106 


7010 




RAR 




' < 1 


06107 


3041 


\ 


OCA 


ACl 


/SAVE 1 BIT OF OVERFLOW 


06110 


2044 i 


< A 


ISZ 


ACX 


/INCREMENT EXPONENT 


«M^il 


7000 


NOPlA 


MOP 






06112 


2040^ 


k1_J 


ISZ 


AC0 


/DONE? 


• 06113 


5275 


^^- — 1*^ 


JMP 


LOPl 


/NO-LOOP 


06114 


5672 


/ 

/Qivioe 
/ 

DBAD, . 


JMP I 


ACSR 


/YES-RETN-AC«L»0 






OJil€Rf LOW-ZERO ACX,ACM,ACLO 


06115 


7300 


CLA 


CLL 


/N£C£SSARV SO WE DON'T GET OVRFLO A 


06116 


5775 


J 


JMP I 


OBAOIP 


/GO ZERO ALL 






•FV0ATIN6 SUBTRACT 




06117 


0000 


FFSUB, 









06120 


45«»^3l 


JM8 1 


PATCHP 


/WHICH MODE OF CALL? 


06121 


1717 




TAO I 


FFSUB 


/CALLED BY USER-GET ADDR. OF OP 


06122 


4727 




JHS I 


ARGETP 


/PICK UO THE OP, 


06123 


4346 




JMS 


0PNE6 


/NEGATE OPERAND 


06124 


1317 




TAO 


FF5UB 


/JMP INTO FLTG. AOO 


06125 


3200. 


SU80I 


OCA 


FFAOD 


/AFTER SETTING UP RETURN 


06126 


5204 




JMP 


FAOl 




06127 


6200' 


ARGETP, 


AR6ET 








AGAIN 



t 



(,>-;,-£,•?«/ 6«^ 




# 



^ 



/W/i 
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• 



0613S 


0000 


FFNEQ, 







/(USED AS A TEM, BY OUTPUT ROUTINE) 


ebt36 


1046 




TAD 


ACLO 


/GET LOW ORDER FAC 


06137 


7141 




CLL CMA 


lAC 


/NEGATE IT 


06140 


3046 




DCA 


ACLO 


/STORE BACK 


06141 


7024 




CML 


RAL 


/ADJUST OVERFLOW BIT AND 


06U2 


1045 




TAD 


ACH 


/PROPAGATE CARRY-GET HI ORD 


06143 


7141 




CUL CMA 


lAC 


/NEGATE IT 


06144 


3045 




OCA 


ACH 


/STORE BACK 


06145 


5735 


/ 

/NEGATE 

/ 

OPNES, 


JMP I 


FFNEG 








OPERAND 






06146 


0000 









06147 


1051 




TAD 


OPL 


/GET LOW ORDER 


061S0 


7141 




CLl, CMA 


lAC 


/NEGATE AND STORE BACK 


061S1 


3051 




DCA 


OPL 




06152 


7024 




CMC 


RAL 


/PROPAGATE CARRY 


06153 


1050 




TAD 


OPH 


/GET HI ORDER 


061S4 


7141 




CLL CMA 


lAC 


/NEGATE AND STORE BACK 


06155 


3050 




DCA 


OPH 




06156 


5746 


/ 

/ADO OP 

/ 

OADDf 


JMP 1 


OPNEG 








ERANO TO 


FAC 




06157 


0000 









06160 


7100 




CLL 






06161 


1042 




TAO 


AC2 


/ADD OVERFLOW WORDS 


06162 


1041 




TAD 


ACl 




06163 


3041 




DCA 


ACl 




06164 


7004 




RAL 




/ROTATE CARRY 


06165 


1051 




TAD 


OPL 


/ADO LOW ORDER MANTISSAS 


06166 


1046 




TAO 


ACLO 




06167 


3046 




OCA 


ACLO 




06170 


7004 




RAL 






06171 


1050 




TAD 


OPH 


/ADO HI ORDER MANTISSAS 


06172 


1045 




TAD 


ACH 




06173 


3045 




OCA 


ACH 




06174 


5757 




JMP I 


OADO 


/RETN, 


06175 


55M*/A)BA01Pi 


DBADl 






06176 


621S 


FNORP, 


FFNOR 

> 
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IFNZRO EAE < 

/EAE FLOATING POINT PACKAGE 

/FOR POPS/E WITH KES.E EAE 

/ 

/W.J. CL06HER 

/ 

/DEFINITIONS OF EAE INSTRUCTIONS 

8WP*7Set 

CAH«762l 

MSA • 7501 

MeL<742t 

86T«fte0(> 

SWA8«74S1 

SWBA«7«47 

8CAa7«4t 

MUY«7«a5 

0VI«7«e7 

NNIi74il 

8HLa74I3 

ASR«74tS 

I.SR«74I7 

ACS«7403 

SAH«74S7 

DAD>7443 

Dl.0a7SU 

OST-7445 

0PIC»7S73 

OCNa7S7S 

0PSZ«74$1 

/ 

ACLOaiORO 

T««TeMP4 

ENPUNCM 



f • • 




# 
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/FLOATING OUTPUT ROUTIN 

/ 

FPOUT, 

SMAB 

OCA SIGN 

OCA KNT 

TAO EFUS 

SZA CUA 

JHP FFMT 



/ALSO DOES MOL TO CLB, AC 
/CLEAR SIGN AND COUNT MOROS 

/IS THIS E FORMAT? 



/NO-F FORMAT 
CLL CML lAC RTL /VES-MAKE A 6 

/STORE AS « OF DIGITS AFT DEC PT 
/SET FIELD WIDTH TO 14 ( DECIMAL) 



DADP 

FLOW 



OCA 
TAO 
DCA 

FFMT. CDF 

TAO KM7 

DCA I OCNTP 

TAO ACM 
SNA 

JMP F0UT3 

SMA CLA 

JMP ,*i 

ISZ SIGN 

JMS I FFNGP 

FOUTl, TAO ACX 

SHA SZA CLA 



JMP 
JMS I 
TEN 
ISZ 

JMP 
F0UT2| JMS I 
JMS I 
TM3 
OCA 



F0UT2 
FFMPP 

KNT 

FOUTl 

SEP 

FFPUTP 

ACX 



CLL CML RTR 



OCA 
OCA 
TAO 
SZA 

TAO 

CMA 

TAO 

SMA 

CMA 

TAO 

SPA 

CLA 

TAO 

OCA I 

JMP 



ACH 

ACLO 

EFLS 

CLA 

KNT 

lAC 

OAOP 



KK7 



KMT 
SEP 
.♦3 



/CHANGE TO FIELD OF PACKAGE 
/SET # OF SIGNF, DIGITS 
/TO fe (DON'T PRINT 7TH) 
/DETERMINE IF »«ia 

/YES-SKIP DOWN 

/NO«IS IT NEGATIVE? 

/POSITIVE 

/NEGATIVE-SET FLAG 

/AND NEGATE # 

/GET « INTO RANGE .1<*N<1 

/IS EXP. NEG,7 

/NO-GO ON 

/YES-MAKE i GREATER THAN 1 

/BY MULTIPLYING BY TEN (DEC.) 

/COUNT THE MULTIPLIES 

/SEE IF >1 YET 

/# IS H-MAKE IT LESS THAN I 

/STORE IN A TEMPORARY 

/SET FAC TO .5 



/IS THIS E FORMAT? 

/NO-GET COUNT OF MULTIPLIES 
/NEGATE IT 

/AND AOO i OF DIGITS AFT, OC, PT, 
/MUST BE NEGATIVE 

/LIMIT « OF DIVS TO 7 



/RESTORE 

/STORE A5 COUNTER 
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F0UT4, 



F0UT5, 



FOUTJi 



NOTEi 



AOFMi 



PRDCPi 



JMS I 

TEN 

ISZ I 

JMP 

JMS I 

TM3 

JMS I 

TAO 

CMA 

OCA 

OLD 

ACH 

SMP 

1 

1,SR 

(d 

DCA 

SWP 

DCA 

TAD 

DCA 

TAD 

SZA 

JMP 

DCA 

TAD 

JMP 

TAD 

SMA 

CUA 

TAD 

TAD 

CMA 

TAO 

SMA 

JMP I 

OCA I 

JMP 

TAD 

JMS I 

ISZ I 

JMP 

TAO 

CUL 

TAD 

JMS I 

TAD 

SMA 

JMP I 

CMA 

JMS I 

TAO 

SNA 

JMP I 

JMP I 



FFDVP /DIVlDfc ,5 BY TEN THAT # OF TIMES 



SEP 
.-3 

FFADP 

SEP 

ACX 
lAC 
FOUTb 



SHL 



ACH 

ACtO 

KNT 

OPX 

EFLG 

CLA 

NOTE 

KNT 

KM7 

ADFW 

KNT 



CMA 

Ml 

FLDH 

lAC 

OADP 



SEP 
.♦3 

KKe40 
OUTP 
SEP 
.-3 

SIGN 

RAL 

K253 

OUTP 
KNT 

PRZROP 

lAC 

DGTYPP 

OADP 

CLA 

GKNTP 

POPP 



/DONE? 

/NO-GO ON 

/YES-ADD IN 0RIG,«-THIS IS ROUNDING 

/INSURE THAT IT IS IN RANGE 

/GET EXPONENT 

/USE AS COUNT FOR SHIFTING MANT. 

/PICK UP MANTISSA 

/PUT IN CORRECT ORDER 

/SHIFT LEFT KFOR EXP.) 

/NOW SHIFT RIGHT ACCORD TO EXP, 

/STORE BACK 



/DONE-GET COUNT OF MULS. 

/PRESERVE IT 

/IS THIS E FORMAT OUT? 

/NO 

/YES-ZERO COUNT 

/GET MINUS 7-FOR 2 SIGNS, PT, +EXP 

/GO ADD FIELD WIDTH 

/GET COUNT OF MULTIPLIES 

/IF NOT NEG-MAKE « -2 



/MINUS 1 FOR DEC.PT 
/GET THE FIELD WIDTH 
/NEGATE IT 

/ADD DIGITS AFTER DEC. PT 
/NEG? 
PRNTXP /NO-PRINT XS-NOT ENUFF ROOM 



/STORE AS CNT OF SPACES 



/PRINT A SPACE 
/OONfc? 
/NO-GO ON 
/YES-GET SIGN 
/MAKE A ZERO OR 2 
/FOR PLUS OR MINUS 
/PRINT SIGN 
/GET MUL COUNT 

/PRINT LEADING ZERO 

/OUTPUT 'KNT' DIGITS 
/DON'T PRINT DEC, PT 
/IF OADP IS 
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PRZROP, 


PRZRO 


POPP» 


PDP 


Kill, 


U 


GXNTP, 


GKNT 


FLINR, 


JMP I 


PRNTUP, 


PRNTX 


KZSSt 


253 


PW, 


PR 


OCNTP, 


OCNT 


MI, 


7777 


KKT, 


7 


06TyPP» 


OGTVP 


OUTPf 


OUT 


KK24fl, 


240 


KM7, 


-T 


FPAOP, 


FFADO 


FFOVP, 


FFOIV 


FFPUTP, 


FFPUT 


SEP, 


8€ 


FFWPP, 


FfMPV 


FFH6P, 


FFNfG 


KNT, 





SI«N, 


8 



FFOUT 
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PDP, 



GKNT, 



PZR» 
PR» 



PS, 
GD, 



DONEF, 



PAGE 

CLA CLL 

JMS 

TAD I 

SPA SNA 

JMP 

TAD I 

CMA 

OCA 

TAD 

CMA 

DCA 

JMP 

JMS 

ISZ 

SKP 

JMP 

ISZ 

JMP 

TAD I 

CMA 

TAD 

SMA 

JMS 

TAD 

SZA 

JMP 

TAD 

JMS 

TAD 

SMA SZA 

CLA lAC 

TAD 

JMS 

TAD 

SPA 

CMA 

MQL 

K144 

SWP 

JMS 

OVI 

K12 

SMP 

JMS 

SMP 

JMS 

TAD 

SNA 

JMP I 

TAD 

JMS 

TAD 

JMS 

JMP I 



CMA RAL 

OUTDG 

KNTP 

CLA 

SO 

KNTP 

DGTYP 
DADP 

SE 
PR 
OUTDG 

DGTYP 

PS 

SE 

PZH 

KNTP 

lAC 

OADP 

SZA 

DGTYP 

EFLG 

CLA 

DONEF 

K3a5 

OUT 

OPX 

CLA 

RAL 

P253 

OUT 

OPX 

lAC 
OVI 



OUTDG 



OUTDG 

OUTDG 

SWIT2 

CLA 

FLING 

KK215 

OUT 

K212 

OUT 

FLING 



/PRINT DEC. PT. 
/SET COUNT AGAIN 



/GET COUNT 

/NEGATE 

/STORE AS COUNTER 

/SAME FOR DADP 

/GO ON 
/PRINT A ZERO 



/DONE 
/PRINT '£• 

/GET PRESERVED COUNT OF MULS 

/DETERMINE SIGN 

/MAKE A 2 

/PRINT MINUS OR PLUS SIGN 

/SET THE COUNT 

/NEGATE IF NEGATIVE 
/DIVIDE BY ONE HUNDRED 

/QUOT TO ACi REM TO MQ 
/THIS IS FIRST OIG-PRINT IT 
/DIVIDE REM BY TEN 

/GET SECOND DIGIT 
/PRINT IT 

/PRINT LAST 

/SHOULD WE PRINT CR/LF? 

/NO 



/OS/8 BASIC RUNTIME SYSTEM 



PAU8-iV7 ie/£(i/72 PAGE 11« 



/ROUTINE TO 

/ 

SE, 


GET 


FAC«1 










SEl, TAD 




ACX 




SPA 


SNA 


CLA 


/#>17 


JMP 


I 


SE 


/NO-RETN, 


JliS 


I 


FFOV 


/VE8-0IV, BY TEN 


TEN 








CfIA 








TAO 


I 


KNTP 


/REDUCE KNT BY I 


OCA 


I 


KNTP 




JMP 




5€i 





/OUTPUT DISITS OP FAC BY MULTIPLYING BY TEN 
/THE HIGH ORDER OVERFLOW IS THE DIGIT 



06TYP, 











CMA 


I AC 






OCA 


SE 


/STORE COUNT PASSED 




SMAB 




/MODE 8 OF EAE 


DTI, 


TAD 


ACLO 


/GET LOW ORO€R FAC 




MQL 


MUY 


/MUL BY TEN 




K12 








SMP 




/NEW ACLO TO AC 




DCA 


ACLO 


/STORE IT BACK 




TAO 


ACH 


/GET ACH-SENO TO MQ^ AND 




SNP 


MUY 


/MI ORO, OVERFLO OF MUY TO AC 




Ki2 




/MULT BY TEN, OV«FLO IS ADDED 




ISZ 


OCNT 


/DONE ALL SIGNIF. DIGS,? 




JMP 


.♦3 


/NO-GO ON 




CLA 


CMA 


/YES-PRINT ZEROS 




OCA 


OCNT 


/FROM NOW ON 




JM8 


OUTDG 


•PRINT DIGIT {HI ORO, OVRFLOW) 




SMP 




/NEW ACH IS IN MQ 




OCA 


ACM 


/STOKE IT 




ISZ 


SE 


/DONE REQUIRED? 




JMP 


OTl 


/NOPE 




JMP I 


DGTYP 


/YUP 


PRNTX, 


CLA 








TAO 


FLOW 


/GET FIELD WIDTH 




CMA 




/MUST BE NEGATIVE 




OCA 


SE 


/USE AS COUNTER 


PBNTXl, 


ISZ 


SE 


/DONE ALLt 




SKP 




/NO«GO ON 




JMP 


DONEF 


/Y€S-RtTN, 




TAD 


K252 






JHS 


OUT 


/PRINT ASTERISK 




JMP 


PRNTXt 




K252, 


2se 




/ASTERISK 
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PRZHO, 


CLA 






JM8 


OUTDG 




JMP I 


PRDCPf 


PROCPP* 

/ 

/OUTPUT 


PROCP 




ROUTINE 




/ 






OUT. 









OCA I XR3 




JMP I 


OUT 


/ 






/OUTPUT 


DIGIT 




/ 






OUTOG, 









TAD 


P260 




JMS 


OUT 




JMP 1 


OUTDG 


RNTP» 


KNT 




KKZtb, 


215 




KStSr 


212 




TM3, 


a 







DCNT, 





/COUN 


K30S« 


305 




PZb9t 


260 




FFOV. 


FFOIV 




P2S3f 


253 




FLINS, 


FLINK 




K14«. 


104 
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/CLR. GARBAGE 
/PRINT ZERO 
PRDCPP /PRINT DEC. PT. (MAY8E) 



/STORE IN INTERMEDIATE BUFFER 



/RETN 



/COUNT OF SIGNF. DIGITS 
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/FLOATING POINT INPUT ROUTINE 
/ 



FFIN, 



DECONVi 



OECNV, 
DECON, 



FFINi, 



FIG02. 



6ETE» 



PAGE 



CLA 

DCA 

CMA 

OCA 

CDF 

OCA 

DCA 

DCA 

OCA 

DCA 

JMS 

JMP 

isz 

ISZ 

OCA 

JMS I 

TIN 

JMS I 

FPPTM 

JMS I 

TP 

JMS I 

JMS I 

FPPTM 

JMP 

ISZ 

JMP 

TAD 

SNA 

JMP 

DCA 

CL.A 
ISZ 

JMS I 

SVIAB 

CMA 

DCA 

TAD 

TAD 

SNA 

JMS 

JMP 

MUY 

%IZ 

JMP 



CMA 

PRSM 

SI6NF 

OSWIT 
ACX 
ACLO 
ACH 

DNUMBR 
SCHR 
FFINI 
OSMIT 
DNUMBR 
TPl 
FMPVLL 

FPUTL 

FGETL 

FNORL 
FADOLI. 

OECON 

PRSW 

FI602 

K2 

CLA 

OECNV 

DNUMBR 

MOW 

SIGNF 

FFNEGP 



SIGNF 

CHAR 

KME 

CLA 

GCHR 

EOON 



1 



1 



GETE 



/INITIALIZE PERIOD SWITCH TO -I 
/SET SIGN SWITCH TO -1 

/CHANGE TO DF OF PACKAGE 
/ZERO CONVERSION SWITCH 
/ZERO OUT THE FACl 



/ZERO « OF DIGITS SINCE DEC. PT, 

/GET A CHAR, FROM TTY, 

/TERMINATOR- 

/OISIT-BUMP CONVERSION SWITCH 

/BUMP « OF DIGITS 

/STORE IT IN FORM EASILY FL0ATI8LE 

/MULTIPLY * BY 10 

/STORE IT AWAY 

/GET NEW DIGIT 

/FLOAT IT 

/ADO IT TO THE ACCUMULATED # 

/GO ON 

/HAVE WE HAD A PERIOD YET? 

/YES-GO ON 

/NO-IS THIS A PERIOD? 

/VE8-ZERQ DIG, COUNT AFTER DEC, PT, 

/AND GO CONVERT REST 

/NO-TERMINATOR-ZERO COUNT OF 

/DIGITS AFTER DECIMAL POINT. 

/0 TO MQ FOR LATER MULTIPLY 

/IS # NEGATIVE?(DI0 WE SET - SIGN?) 

/YES-NEGATE IT 

/RESET SIGN SWITCH FOR EXP, 

/NO-WAS THE TERMINATOR AN »E'? 



/YES-GET A CHAR, OF EXPONENT 

/END OF EXPONENT 

/GOT DIGIT OF EXP-MULT ACCUMULATED 

/EXPONENT BY TEN AND ADO DIGIT 

/CONTINUE 
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EDONi 



FCNT, 



FIN8T, 



FFNEGP* 
PRSW> 
DNUMBRi 
SI6NF, 

KME, 
MOV I 
FMPVLL* 

FADOLLf 

K12» 

TP, 

TPl, 

TEN> 



ISZ 

OCM 

CUA 

TAD 

SAM 

CI.L 

SPA 

cut. CMA 

CMA 

DCA 

RAU 

TAD 

OCA 

ISZ 

J MP 

JMP I 



TEN 

JMP 

FFNCG 







2 

-305 

JMS I 

FFMPV 

FFOIV 

FFADO 

12 
13 





4 

2400 





SI6NF 

CLL 
DNUMBR 



CML lAC 

ONUMBR 

MOV 

FINST 

DNUMBR 

FINST 

FFIN 

FCNT 



• ♦I 



/WAS EXPONENT NEGATIVE? 

/YES-NEGATE IT 

/CLEAR AC AND LINK 

/GET # TIMES TO OIV MANTISSA BY TEN 

/SUBTRACT FROM EXPONENT 

/RESULT POSITIVE? 

/NO-MAKE POS. AND SET LINK 

/NEGATE FOR COUNTER 

/AND STORE 

/LINK"1-OIV»«0-MUL. # BY TEN 

/FORM CORRECT INSTRUCTION 

/AND STORE FOR EXECUTION 

/DONE ALL OPERATIONS? 

/NO 

/YES-RETURN 

/NO- MUL OR OIV, MANTISSA 

/BY TEN 

/GO ON 



/THESE 3 WDS, MUST BE IN THIS ORDER 

/nuiMMtnuMi 
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/ROUTINE TO GET A CHAR FROM THE TTY AND SEE IF IT IS DIGIT 
/OR A TERMINATOR. 
/RETURN TO CALL * I IF 
/THIS ROUTINE MUST NOT 



TERMINATOR, TO CALL * 2 IF DIGIT 
MODIFY THE MOn 



GCHR» 







JM8 INPUT 




TAD CHAR 




TAD PLUS 




SNA 




JMP DECONl 




TAO MINUS 




SZA CLA 




JMP .♦3 




OCA SIGNF 


DECONl, 


JMS INPUT 




TAD CHAR 




TAD K7506 




CLL 




TAD K12 




8ZL 




ISZ GCHR 




JMP I GCHR 


K7506, 


7506 


PLUSi 


-253 


MINUS, 


253*255 


/ 




/ 




/INPUT 

/ 

INPUT, 


ROUTINE-IGNORES 







JMS I GETCHL 




TAO DSWIT 




SZA CLA 




JMP lOUT 




TAD CHAR 




TAD M240 




SNA CLA 




JMP INPUT+l 


lOUT. 


JMP I INPUT 


M240, 


-240 


/ROUTINE TO DECIDE CALI 

i 


f 


*53<>« 


PATCMF, 







SZA 




JMP RTN2 




TAD FF 




SZA CLA 


RTN2, 


ISZ PATCHF 




JMP I PATCHF 



/GET A CHAR FROM TTY, 

/PICK IT UP 

/WAS IT PLUS SIGN? 

/YES-GET ANOTHER CHAR, 
/NO WAS IT MINUS SIGN? 



/YES-FLIP SWITCH 
/GET A CHAR. 

/SEE IF ITS A DIGIT 



/DIGIT? 

/YES-RETN, TO CALL*2 

/NO-RETN. TO CALL*l 



LEADING SPACES 



/USE OUR ROUTINE TO GET CHAR 

/GET TERMINATOR 

/VALID INPUT YET? 

/YES-CONTINUE 

/NO-GET CHAR 

/COMPARE AGAINST SPACE 

/IS IT A SPACE? 

/YES-IGNORE IT 

/RETURN 



,ING MODE IN LIEU OF "SPECIAL MODE" PROBLEMS 



/IS AC EMPTY 

/N0-THI8 IS ALWAYS SI MODE WITH ADUR IN AC 

/YES-GET SPECIAL MODE FLIP-FLOP 

/IF ON, THE ZERO AC MEANS ADDRESS OF 

/USE AC AS ADDRESS OF OPERAND 

/RETURN 
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/FUOATING SUBTBACT-USES FLOATING ADD 

/FSMUi 
FFSUBl, 

JMS I PATCHP /WHICH MODE? 

TAD I FFSUBl /CALtED BY USER-GET AODR. OF OP 

JMS I ARGETL /PICK UP ARGUMENT 

CDF 

JMS I FFNEGA /NEGATE FACl 

TAD FFSUBl 

JMP I SUB0P 
FFNEGA, FFNEG 
SUB0P, SUB0 



/FLOATING DIVIDE 


/FSWlTCHul 




/THIS IS OP/FAC 
/ 

FFDIVii 






JMS I PATCHP 


TAD I 


FFOIVI 


JMS I 


ARGETL 


COF 




TAD 


ACH 


DCA 


OPH 


TAD 


ACX 


SWP 




DCA 


ACH 


TAD 


OPX 


OCA 


ACX 


TAD 


OPL 


SMP 




DCA 


OPX 


TAD 


ACLO 


OCA 


OPL 


TAD 


OPH 


SMP 




DCA 


ACLO 


TAD 


FFOIVI 


OCA I 


FFDP 


TAD 


FOl 


OCA I 


MDSETP 


JMP I 


MO IP 


MOIP, HDi 




ARGETL* ARGET 




MOSETP» MD8ET 




FFDPf FFOIV 




FDl, FFOl 





/WHICH MODE OF CALL? 

/CALLED BY USER-GET ADDR, 

/CINTERP.)-GET OPRND.-AODR, IN AC 

/CDF TO FIELD OF PACKAGE 

/SWAP FAC ANO OPRND-OPH IN MQl 

/STORE ACH IN OPH 

/GET EXP OF FAC 

/OPH TO AC, ACX TO MO 

/STORE OPH IN ACH 

/STORE OPX IN ACX 

/OPL TO MQ, ACX TO AC 

/STORE ACX IN OPX 

/STORE ACLO IN OPL 
/OPH TO MQ FOR LATER 

/STORE OPL IN ACLO 
/SET UP SO WE RETN TO 
/NORMAL DIVIDE ROUTINE 

/GO ARRANGE OPERANDS 
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/PATCH TO EAE ADO ROUTINE 

ADDPCHr 

TAO ACl 

TAD RB4000 

0P8Z 

JMP AOOPl 

CU CML RTR 

XSZ ACX 

NOP 
ADOPl, TAD RB«0e0 

JMP 1 AODPCH 
RB4000r 4000 



/ROUTINE TO BUMP CHARACTER NUMBER 

/USED BY CHAR PACKING ROUTINES, BUT ITS HERE AS A PATCH 

• 5S73 

CNOBML, 

TAD I WORD0 /HEADER WORD 

TAD K01B0 /ADO I TO THE COUNT BITS 

DCA I WORD0 

JMP I CNOBML, /DONE 
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/ruOATINB MUi.TII»l.Y-«00E8 « SINGLE MULTIPLIES WITH EAE 
/THIS USES THE FACT THAT IF AC IS NON-ZERO WHEN YOU DO 
/A MUY IN8TR, THE AC IS AOOEO TO RESULT OF THC MULTIPLY. 
/(IN THE UOM ORDERr NATCHERLY) 
PA6i 



FFHPY, fl 

JMS I 


MTCHP 


/WHICH MODE? 


TAD I 


FFMPY 


/CALLED BY USER-GET ADDRESS 


JMS 


MDSET 


/SIT UP FOR MULT 


CLA ^ 


MUY 


/MULTIPLY-LOW ORDER FAC STILL IN MO 






/THIS IS PRODUCT OF LOW ORDERS 




/ZAP LOW ORDER RESULT-INSIGNIFICANT 


TAO 


ACH 


/GET LOW OROER(l) OF FAC 


■■-fHlifi- 


MUY"' ■" 


/TO MO-MIGH ORD, RE5LT OF LAST MPY 


TJBEU- 





/TO AC-WILL BE AOOEO TO RE8LT-THI8 


^MT^ 


/IS PRODUCT-LOW ORD FAC, HI ORD OP 


ACl 




/STORE RESULT 


OLD 




/HIGH ORDER FAC TO MO, OPX TO AC 


aclO 






TAD ^ 


ACX 


/AOO FAC EXPONENT-SET SUM OF EXPS, 


OCA 


ACX 


/STORE RESULT 


MUY 




/MULt HIGH ORDER FAC BY LOW ORO OP, 


WW) 




/HIGH ORDER FAC WAS IN MQ 




/ADO IN RESULT OF SECOND MULTIPLY 


ACS 






OCA 


ACH 


/STORE HIGH ORDER RESULT 


TAD 


ACLO 


/GET HIGH ORDER FAC 


8MP 




/SEND IT TO MQ AND LOW ORO. RESULT 


DC A 


AC0 


/OF ADD TO AC-STORE IT 


RAU 




/ROTATE CARRY TO AC 


OCA 


ACLO 


/STORE AWAY 


VsKL 




/MOW 00 PRODUCJT OF HIGH ORDERS 
/FAC HIGH IN MQ, OP HIGH IN OPL 


mHrT 




/ADO IN THE ACCUMULATED • 


ACH 




fc 


SNA 




/ZEROf 


JMP 


RTZROf 


/VES-fifl ZERO EXPUMflU 


* — wn — 




-7Wr-N0RMALIZE (1 SHIFT AT M0STJ3 


OCA 


ACH 


/STORE HIGH ORDER RESULT 


CLA 


SCA 


/GET STEP CNTR-OIO WE NEED A SMIFT7 


SNA 


CLA 




JtIP 


SNCK 


/NO-JUST CHECK SIGN 


CLA 


CMA 


/YES-MUST DECREASE EXP, BY 1 


TAO 


ACX 




RT2R0, OCA 


ACX 


/STORE BACK 




• 
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SNCKi 



MPOSf 



MSIGM, 

ARGETK* 

OVOPU, 



TAD 
SPA 
OPIC 
ISZ 

JMP 

TAD 

OCM 

OCA 

SWP 

OCA 

ISZ 

JMP I 



ARGET 

DV 



AC0 

CLA /IS HIGH ORDER OF OVERfLO WO, 

/YES-ADD 1 TO UOW ORDER-STILL 
MSIGN /RESULT NEGATIVE? 
MPOS /NO'GO ON 
ACM /YE8»GET HIGH ORDER BACK 

/LOi* ORDER STILL IN MQ-NtGATE 
ACH /STORE HIGH ORDER BACK 

/LOW ORDER TO AC 
ACLO /STORE AWAY 
PFMPY /BUMP RETURN 
FPMPY /RETIRN 



1? 

IN MQ 



/ROUTINE TO 

/ 

MDSET, 



MOl, 



SET UP FOR MULTIPLY AND DIVIDE 



V 







s' 



l" 



Q 



FPOSi 



I ARGETK 

CLL CMA RAL 
MSIGN 
QPL 



.♦3 



MSIGN 



FPOS 
MSIGN 

MOSET 



/GET OPERAND tADDR. IN AC) 

/CHANGE TO DATA FIELD OF PACKAGE 

/MAKE A MINUS TWO 

/AND STORE IN MSIGN, 

/GET LOW ORDER MANTISSA OF OP. 

/GET INTO RIGHT ORDER C OPH IN MQ) 

/NEGATIVE? — 

/NO 

/YES-NEGATE IT 

/BUMP SIGN COUNTER 

/SHIFT OPRND LEFT 1 TO AVOID OVRFLO 

/STORE BACK-OPM CONTAINS LOW ORDER 
/ QPL CONTAINS HIGH ORDER 

/GET THE MANTISSA OF THE FAC 

/MAKE IT CORRECT ORDER 

/NEGATIVE? 

/NO 

/YES-NEGATE IT 

/BUMP SIGN COUNTER (MAY SKIP) 

/STORE BACK-ACH CONTAINS LOW ORDER 
/ ACLO CONTAINS HIGH ORDER 

/RETURN 
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J» 



al 



/FLOATING OIVIOC 
/ 

*5T22 

FFDIV, e 

J«S I FATCHP 

TAO I FFOIV 

IMS MOSET 



^FOl< 






DVLF» 



D?r 

OST 
ACJL_ 

rft ciA 

JMP I OVOFU 

TAO OPX 

CMA I AC 

TAO ACX 

OCA ACX 

OPSZ 

SKP 

OCA ACX 

MUY 

OPH 

OCM 

TAO ACl 

SNi 

JMP I 0V0P8P 

OVl 

OPL 

SZl CLA 

JMP I DVOFL 

TAO AC« 

SMA 

JWP .♦S 

U8R 

1 

ISZ ACX 

NOP 

ISZ MSIGN 

8KP 

OCM 

OCA ACH 

SMP 

OCA ACLO 

ISZ FFOIV 

JMP I FFOIV 



DVOPSP, OVOPS 

DBADi CAM 

OCA ACX 
JMP OBAOl 



OVLPl, 



OBAOt. 



/WHICH MODE? 

/CAUi.CO BY USER-6ET ARG. ADDRESS 
/SET ARG, AND SET UP SIGNS 
/OIVIOE-ACH AND ACLO IN AC.MO 
/THIS IS HI Cn ORDER DIVISOR 
/OUOT TO AC0,REM TO ACl 

/DIVIDE ERRORt 
/YES-HANOtE IT 
/DO EXPONENT CALCULATION 
/EXP, OF FAC • EXP, OF OP 



/IS OUOT ■ 0? 
/NO-GO ON 

/YES-ZERO EXPONENT 
/NO-THIS IS Q«0PL*2**«12 

/NEGATE IT 

/SEE IF GREATER THAN REMAINDER 

/YES-AOJyST FIRST DIVIDE 
/NO-DO Q*0PL«r2**«12/0PH 

/DIV ERRORT 
/YES 

/NO-SET OUOT OF FIRST DIV, 

/NEGATIVE? 

/NO-REMEMBER-QUOT OF aNO DIV, IN MQ 

/YES-MUST SHIFT IT RIGHT I 

/ADJUST EXPONENT 

/SHOULD SIGN BE MINUS? 
/NO 

/YES-DO IT 
/STORE IT BACK 



/BUMP RETN, ANO RETN, 



/ZERO EXHONENT 
/GO ZERO MANTISSA 
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/FLOATING AOOITION-IN 
/SHIFT BOTH NUMBERS RI 
/ARE TO ALIGN EXPONENT 
/ 

PAGE 
FFAOU, e 



FAOlf 



DAORt 



SHFBG, 



CNT, 



JMS I 


PATCHP 


TAD I 


FFAOD 


JMS I 


ARGETP 


CDF 




TAO 


OPX 


MQL 




TAD 


ACX 


SAM 




SPA 




CMA 


lAC 


OCA 


CNT 


TAD 


CNT 


TAO 


M27 


SPA SNA CLA 


CMA 




DCA 


AC0 


OLD 




ADORS 




SGT 




8WP 




DCA 


SHFB6 


SWP 




DCA 


OAOR 


SGT 




JMP 


.♦3 


TAD 


OPX 


OCA 


ACX 


DLO 









SWP 




ISZ 


AC0 


JMP 


LOO 


DST 




ACe 




OLD 

en 




SWP 




ASR 





ORDER NOT TO LOSE SITS, wE DO NOT 
GHT 1 BIT BEFORE AOO-ONLY SHIFTS DONE 
S, 



/WHICH MODE OF CALLING 
/CALLED DIRECTLY BY USER 
/PICK UP ARGUMENTS 
/CHANGE TO CURRENT DATA FIELD 
/PICK UP EXPONENT OF OPERAND 
/SEND IT TO MQ FOR SUBTRACT 
/GET EXPONENT OF FAC 
/SUBTRACT-RESULT IN AC 
/NEGATIVE RESULT? 
/YES-MAKE IT POSITIVE 
/STORE IT AS A SHIFT COUNT 
/COUNT TOO BIStfCAN'T BE ALIGNED) 



/NO-OK 

/YES-MAKE IT A LOAD OF LARGEST # 

/GET ADDRESSES TO SEE WHO'S SHIFTED 

/WHICH EXP GREATER(GT FLG SET 
/BY SUBTR, OF EXPS.) 
/OPERANO'S-SHIFT THE FAC 
/STORE ADDRESS OF WHO GETS SHIFTED 
/GET ADDRESS OF OTHER C0 TO MO) 
/THIS ONE JUST GETS ADDED 
/WHICH EXPONENT WAS GREATER? 
/FAC'S - DO NOTHING 
/OPERANO'8-PUT FINAL EXP, IN ACX 

/GET THE LARGER # TO AC.MQ 

/PUT IN THE RIGHT ORDER 

/COULD EXPONENTS BE ALIGNED? 

/NO-JUST LEAVE LARGER IN AC, MO 

/YES-STORE THIS TEMPORARILY 

/(IF ONLY FAC STORAGE WAS REVERSED) 

/GET THE SMALLER « 

/PUT IT IN RIGHT ORDER 
/DO THE ALIGNMENT SHIFT 
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NOOVf 
LOD, 



AND 

TAO 

8MA 

JMP 

JMS 

NMI 

OCA 

SMf> 

OCA 

SCA 

CMA 

TAO 

OCA 

ISZ 

JMF 

TAO 

ASR 

I 

TAO 

OCA 

SMf 

OCA 

in 

NOP 

KK«0f9e« 4000 
MIT I 
AOORS, 



DAO 

AC0 

08T 

AC0 

8ZU 

CMA 

8MA CLA 

JMP NOOV 

CLA CLI. CML RAR 

ACH 

OPN 

CLA 

OVRFUO 
AODPCL 



AOON> 
OVRPlOf 



ACH 

ACLO 

I AC 

ACX 

ACX 

FFAOO 

FFAOO 

ACl 



KKa000 
ACH 

ACLO 
ACK 

AOON 



/ADO THE LARGER • 

/STORE RESULT 

/OVERFL0W?(L NOT ■ SIGN BIT) 
/NOTE-WE DIDN'T SHIFT BOTH RIGHT 1 

/NOPE 

/MAVBE-SEE IF 2 «S HAD SAME SIGN 



/SIGNS ALIKE? 

/VKS-OVERFLOW 

/JUMP TO PATCH FOR THIS ROUTINE 

/NORMALIZE (LOW ORDER STILL IN MS) 

/STORE FINAL RESULT 

/GET AND STORE LOW ORDER 

/GET SHIFT COUNTER(# OF NMI SHIFTS) 

/NESATi IT 

/AND ADJUST FINAL EXPONENT 

/BUMP RETURN PAST ADDRESS 

/RETURN 

/OVERFLOW-GET HIGH ORDER RESLT BACK 

/SHIFT IT RIGHT I 

/REVERSE SIGN BIT 
/AND STORE 

/STORE LOW ORDER 
/BUMP EXPONENT 

/DONE 



-17 

OPH 

ACH 

ARGETPf AR6ET 
/FLOATING SUBTRACT-USES 

/PSM011 
FF8U8, 



SUB0» 



JMS 
TAO 
JMS 
COF 
TAO 
SMP 
OCM 
OCA 
MOA 
OCA 
TAO 
OCA 
JMP 



PATCHP 
FP8UB 
AR6ETP 

OPL 



0PM 

OPL 
FF8UB 
FFAOD 
FAOi 



FLOATING ADD 



/NHICH MOOET 

/CALLED BY USER"6ET ADDRESS OF OP. 



/OPN IS IN MQI 

/PUT IT IN RIGHT OflOER 

/NEGATE IT 

/STORE BACK 



/GO TO AOD 
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/ 

/FLOATING NEGATE--NEGATE FLOATING AC 



FFNEG, 











SWAB 




/MUST BE MODE B 




OLD 




/GET MANTISSA 




ACH 








SWP 




/CORKECT ORDER PLEASE! 




DCM 




/NEGATE IT 




OCA 


ACH 


/RESTORE 




SWP 




/SEND TO MQ 




OCA 


ACLO 






JMP I 


FFNEG 





/ 

/CONTINUATION OF DIVIOE ROUTINE 
/WE ARE ADJUSTING THE RESULT OF THE 
/FIRST DIVIDE. 



/ 

OVOPS, 


CMA 


lAC 






OCA 


ACl 


/ADJUST REMAINDER 




TAD 


OPL 


/WATCH FOR OVERFLOW 




CLL CMA 


lAC 






TAD 


ACl 






SNL 








JMP 


DVOPl 


/DON'T ADJUST QUOT. 




OCA 


ACl 






CMA 








TAD 


AC0 






OCA 


AC0 


/REDUCE QUO! BY 1 


DVOPl, 


CLA 


CLL 






TAD 


ACl 


/GET REMAINDER 




SNA 




/ZERO? 




CAM 




/YES-ZERO EVERYTHING 




DVI 




/NO 




OPL 








SZL 


CLA 


/OIV, OVERFLOW? 




JMP I 


DVOVR 


/YES 




DCM 




/NO-AOJUST HI QUOT (MAYBE) 




JMP I 


DVLPIP 


/GO BACK 


DVLPlPi 


DVLPl 






OVOVR, 


DV 






ADOPCL» 


ADOPCH 
NOPUNCH 

> 
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/ARGUMENT PICK UP ROUTINE-ENTER WITH DATA FIELD SET TO EITHER 

/FUTG, DATA FIELD OR PLTG. INSTR. FIELD, 

/ADDRESS OF OPERAND IS IN THE AC ON ENTRY, 

/ON RETURN, THE AC IS CLEAR 

f 

/STORE ADDRESS OF OPERAND 
/PICK UP EXPONENT 

/MOVE POINTER TO HORO, WATCH FOR FIELD OVERLAP 
/PICK IT UP 



06200 


0000 ARC 


ET, 


06201 


3042 


OCA AC2 


06202 


1442 


TAD I ACS 


06203 


3047 


OCA OPX 


06204 


4310 


JMS ISZAC2 


0620S 


1442 


TAD I AC2 
IFZERO EAE < 


06206 


7000 


NOP 


06207 


7000 


NOP 

» 

IFNZRO EAE < 
ENPUNCH 

*» 

SWAB 

MQA 
NOPUNCH 

> 


06210 


3050 


DCA OPH 


06211 


4310 


JMS ISZAC2 


06212 


1442 


TAD I AC2 


06213 


3051 


DCA OPL 


06214 


5600 


JMP I ARGET 



/OPH INTO MQ BECAUSE EAE ROUTINES 
/EXPECT TO FIND IT THERE 



/STORE 

/MOVE POINTER TO LORD* WATCHING FOR OVERLAP 

/PICK IT UP 

/STORE IT 

/RETURN 




^i' 







• 
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^ 



<='* 



06215 
06216 
06217 
06220 
06221 
06222 
06223 
06224 
06225 
06226 
06227 
06230 
06231 
06232 
06233 
4*06234 
^ 06235 

06236 
06237 



IFZERO EAE < 
/ 

/ROUTINE TO NORMALIZE THt ¥ AC 
/ 

FFM08, 



0000 

1045 

7450 

1046 

7450 

1041 

7650 

5341 

7332.-N0RMLP. 

1045 

7440 

5233 

1046 

7640 

7710 

5236 

5334 

3041 FFNORR» 
5615_^ 

tuSt Ttr^i — 





TAD 

SNA 

TAD 

SNA 

TAO 

SNA 

JMP 

CLA CLU 

TAD 

SZA 

JMP 

TAB 

SZA 

SPA 

JMP 

JMP 



OCA 
JMP I 

iHrt — 



ACH 

ACLO 

ACl 
CLA 
ZEXP 
CML RTR 

ACH 

.♦3 

ACLO 

CLA 

CLA 

FFNOfiR 
FNLP 

ACl 

FFNOR 



/GET THE HI ORDER MANTISSA 
/ZERO? 

/YES-HOW ABOUT LOW? 

/LOW«0, IS OVRFLO BIT ON? 

/#»0-ZERO EXPONENT 
/NOT 0-MAKE A 2000 IN AC 
/ADD HI ORDER MANTISSA 
/HI ORDER a 6000 
/NO-CHECK LEFT MOST DIGIT 
/YES-6000 OK IF LOW»B 

/2, 3, 4, 5, ARE LEGAL LEFT MOST DIGS, 
/FOR NORMALIZED #- C*2000«4,5, 6, 7) 
/JUMP SO FFGET AND PUT ARE OkGEO RIGHT 

/DONE W/NOHMALIZE-CLEAR ACl 

/RETURN 



IFNZRO EAE 
ENPUNCh 






^ 



/ROUTINE TO NORMALIZE 
/ 

*621S 

FFNOH, 

COF 

SWAB 

OLD 

ACH 

SWP 

NMI 

SNA 

OCA ACX 

OCA ACH 

SWP 

OCA ACLO 

CLA 3CA 

CMA lAC 

TAD ACX 

OCA ACX 

JMP I fPNOR 

NOPUNCM 

> 



THE FAC 



/CHANGE D.F, TO FIELD OF PACKAGE 
/FORCE MODE B 
/PICK UP MANTISSA 

/PUT IT IN CORRECT ORDER 
/NORMALIZE IT 
/IS THE » ZERO? 
/YES-INSURE ZERO EXPONENT 
/STORE HIGH ORDER BACK 
/STORE LOW ORDER BACK 

/STEP COUNTER TO AC 

/NEGATE IT 

/AND ADJUST EXPONENT 

/RETURN 
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06241 
06842 
06243 
06244 
0624S 
06246 
06247 
062S0 
06251 
06252 
06253 
06254 
06255 



06256 
06257 

06260 
06261 
06262 
06263 
06264 
06265 
06266 
06267 
06270 
06271 
06272 
06273 
06274 



6241 



#5Mu. 

1641 
4200 
1047 
3044 
1051 
3046 
1050 
3045 
2241 
6201 
5641 



/FLOATING GET 
/ 

• 6241 
FFGETi 



JMS 1 PATCMP 
TAD I FFGET 



1656 
3241 
1044 
3641 
4275 
1045 
3641 
4275 
1046 
3641 
2256 
6201 
5656 



JMS 
TAD 
OCA 
TAD 
DC A 
TAD 
DCA 
ISZ 
CDF 
JHP I 

/ 

/FLOATING PUT 

/ 

i^^ JMS 1 
TAD I 
DCA 
TAD 
DCA I 



PATCHP 
FFPUT 
FFGET 
ACX 
FFGET 



JMS I8ZF6T 



TAD 
DCA I 



ACH 
FFGET 



JMS I8ZFGT 



TAD 
DCA 
ISZ 

CDF 
JMP 



ACLO 
FFGET 

FFPUT 

FFPUT 



/WHICH MODE OF CALL 

/CALLED BY USER-GET AODR, OF OP 

/PICK UP OPERAND 

/LOAD THE OPERAND INTO FAC 



ARGET 

OPX 

ACX 

OPL 

ACLO 

OPH 

ACH 

FFGET 



FFGET /RETN. TO CALL +2 



/WHICH MODE OF CALL? 

/CALLED BY USER-SET OPR, ADDR 

/STORE IN A TEMP 

/GET FAC AND STORE IT 

/AT SPECIFIED ADDRESS 

/BUMP POINTER, WATCHING FOR FIELD OVERLAP 



/BUMP RETN, 
/RETN, TO CALL*2 



/ROUTINES TO BUMP ARGET AND FPUT POINTERS AND INCREMENT THE 
/DATA FIELD IF THE POINTER CROSSES A FIELD BOUNDARY 



06275 
06276 

06277 
06300 
06301 
06302 
06303 
06304 
06305 
06306 



2241 
5675 

7410 
3275 

6214 
1307 
3305 

6305 

5675 



XSZFGTr 

ISZ FFGET 
JMP I ISZFGT 

SKP 
NENCOF, DCA ISZFGT 

RDF 

TAD CDF 10 

DCA «♦! 

JMP I ISZFGT 



/BUMP POINTER 

/NO SKIP MEANS JUST RETURN 

/SKIP MEANS WE HAVE TO INCREMENT DATA FIELD 

/THIS INST EXECUTED ONLY BY ISZAC2 

/GET THE DATA FIELD 

/BUMP BY 1 AND MAKE A CDF 

/PUT IN LINE 

/RETURN 



06307 6211 COF10* CDF IB 



06310 

06311 
06312 




2042 
5710 



I8ZAC2I 

ISZ AC2 
JMP I ISZAC2 



/BUMP POINTER 
/NOTHING HAPPENED 







# 





/05/8 BASIC RUNTIME SYSTEM PAL8-V7 i0/24/72 PAGE 129-1 

a*313 1310 TAD ISZAC2 /NEED NEW DF. GET RETURN ADOR 

06314 5301 JMP NEWCOf /AND BUMP OF 



/03/8 BASIC RUNTIME SYSTEM 
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intdO lAE < 



THE 





7041 




304S 




7100 




1050 




1045 




7«i0 




5330 




3045 




7040 




1041 




3041 




7300 




1045 




5733 




5535 




7160 




1044 




3044 




4640 




5225 




3044 




5236 



/ROUTINE TO ADJUST OUOTINET Of FIRST DIVIDE CMAYBE) WHEN 
/REMAINDER OF THE FIRST DIVIDE IS LESS THAN QUOT*OPl. 
/USED BY FtTG, DIVIDE ROUTINE 
/ 

/NEGATE AND STORE REVISED REMAINDER 



OVOFSi 



OVOPlf 



DV0R2Pi 



CMA 

OCA 

CLU 

TAD 

TAD 

SNt. 

JMF 

OCA 

CMA 

TAD 

OCA 

Cl^A 

TAO 

JMP I 

DV0P2 



lAC 

ACH 

OPH 
ACH 

OVOPl 

ACH 

ACl 

ACl 
CUU 
ACH 
DV0P2P 



FNLPi cut CML CMA 



ZEXP* 



TAD 

DC A 

JM8 I 

JMP 

OCA 

JMP 

> 



ACX 
ACX 
ALIP 

NORMLP 

ACX 

FFNORR 



/WATCH FOR OVERFLOW 

/0VERFL0W«DON»T ADJUST OUOT. 
/NO OVERFLOW-STORE NEW REM. 
/SUBTRACT I FROM OUOT OF 
/FIRST DIVIDE 



OF 1ST DIV, 



/GET HI 
/GO ON 



/-I 



ORD OF REMAINDER 



/SUBTR, I PROM EXPONENT 

/SHIFT FAC LEFT 1 

/GO BACK AND SEE IF NORMALIZED 




t 



t 



t 
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6347 



/PSOyARE-SQUARE FAC-CALLS MULTIPLY TO MUL. PAC 8Y ITSEUP 
/ 

•63«7 



06347 


0000 


FPSO# 







06350 


4753 




JMS I TMPY 


/CALL MULTIPLY TO MULTIPLY 


06351 


0044 




ACX 


/FAC BY ITSELF 


06352 


5747 




JMP 1 PFSO 


/DONE 


063S3 


5600 


TMPY# 

/ 

/ 


FFMPY 








ERROR TRAPS 




06354 


4516 


00 » 


JHS I ERROR 


/OVERFLOW 


06355 


4516 


DV, 


JMS I ERROR 


/DIVISION ERROR 


06356 


4537 




JMS 1 FCLR 


/RETURN IN FAC 


06357 


5513 




JMP I ILOOPL 




06360 


4516 


LM, 


JMS I ERROR 


/ILLEGAL ARGUMENT 



/ROUTINE TO COMPARE 2 ABSOLUTE 12 BIT INTEGERS TO DETERMINE WHICH IS 
/THE LARGER, WHEN CALLED, NUMBER «Aw IS IN THE AC, NUMBER "B" IS IN 
/CORE LOCATION BABS ON PAGE 0, RETURNS TO CAiL*l IF B>»A,CALL+2 IF 
/A»B 



06361 0000 NUMCOLf 



06362 


3347 
1015. 


DC A A 


06363 


TAD BABS 


06364 


7710 


\ SPA CLA 


06365 


5374 


\ JMP BNEG 
MQFTCHi TAD A 


06366 


1347 


06367 


71«1 


^L CIA 


06370 


1015 


TA^^ABS 


06371 


7620 


SNL CbA^ 


06372 


2361 


I8Z NUMfrBiL 


06373 


5761 


JMP I NUMCOb 


06374 


1347 


BNEGi TAO A 


06375 


7710 


SPA CLA 


06376 


5366 


JMP MOFTEN 


06377 


5761 


JMP I NUMCOL 



/SAVE A 

/GET B 

/B>0? 

/NO-SPECIAL CASE CHECK 

/YES-GET A AGAIN 

/NEGATE 

/IF B>«A, THERE WILL BE A CARRY 

/B«A 



w ^te i 






\ 



>«i£T A AGAIN 

/I«M NEG ALSO? 

/VES»>«i| THE CODE AVOE TO COMPARE 

/NO-THtr-^ A 



4 



rrrs 






Tt^ r ^ 



m^'^-00'f^ 



/OS/8 BASIC RUNTIME SYSTEM 
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6400 



*oyERi.AV4>ie0e 



/TELETYPE »DRlVER"»WHEN CALUED, GRABS CHARACTERS FROM THE 

/TELETYPE UNTIL A CR IS SENT OR THE BUFFER IS FULL, ASSUMES TTY ENTRY 

/IS IN I/O MORK AREA. 



06400 

06401 

06402 

06403 

06404 

06405 

06406 

06407 

06410 

06411 

064U 

06413 

06414 

06415 

06416 

064 IT 

06420 

06421 

06422 

06423 

06424 

0642S 

06426 

06427 

06430 

06431 

06432 

06433 

06434 

06435 

06436 

06437 

06440 

06441 

06442 

06443 

06444 

06445 

06446 

06447 

06450 

064S1 

06452 

86453 



7410 
4SS3 
1253 
4522 

1564 

3566 

4546 

4510 

5210 

1252 

6031 

5321 

7300 

1077 

6034 

3051 

1053 

4522 

6032 

1053 

1246 

7650 

5202 

1053 

1250 

7450 

5254 

1247 

7650 

5306 

1053 

4545 

4547 

5651 

7000 

7000 

5210 

7553 

0162 

7401 

6674 

5252 

0277 



TTYORli 
LFLUSH, 



TTYIN, 
KSFAf 



MCTRLUf 

MCRf 

CRUBOTr 

IOLK» 

KS252, 

K277r 





8KP 

JMS I CRLF 
TAD K277 
4MS I XPUT 
TAP I MORDl 
DCA I ttORDS 
JM8 I CNOCLL 
JM8 X PRINT 

JHP .-l 
TAD KS252 
KSF 

JHP SPIN 
CLA CLL 
TAD K0200 
KRS 

DCA CHAR 
TAD CHAR 
JHS I XPUT 
KCC 

TAD CHAR 
TAD MCTRLU 
SNA CLA 

JHP LFLUSH 
TAD CHAR 
TAD CRUBOT 
SNA 

JMP BACKUP 
TAD MCR 
SNA CLA 

JHP CR 
TAD CHAR 
JMS I PACKL 
JHS I BUFCHL 
JMP I lOLK 
NOP 

NOP 
JMP TTYIN 
-225 
377-215 
-377 
10 
5252 
277 



/CRLF ONLY NECESSARY ON FLUSH 

/PRINT A CR,LF 

/PRINT A r SIGNIFYING WAIT FOR INPUT 

/BUFFER ADDRESS 

/INITIALIZE POINTER TO START OF BUFFER 

/INITIALIZE CHAR # TO I 

/EMPTY TTY BUFFER BEFORE AWAITING INPUT 

/DESIGN INTO AC 

/CHAR READYt 

/NO-OIODLE WHILE WE WAIT 

/FLUSH SPINNER OUT OF AC 

/FORCE PARITY BIT 

/GET CHAR 

/SAVE 

/ECHO IT 

/CLEAR KEYBOARD FLAG AND SET READER RUN 

/IS IT CTRL/Ul 

/YES-START AGAIN 

/NO 

/IS IT RUBOUT? 

/YES-BACK UP BUFFER POINTER 
/NO-IS IT CR? 

/YES-DONE 

/PACK CHAR IN BUFFER 
/BUFFER FULL? 
/YES-ERROR 
/NO-CHAR 3 LEFT 
/NO-2 AND 3 LEFT 
/NO-NEXT CHAR 



06454 1566 BACKUPi TAD I W0R03 



• 



/BUFFER POINTER 
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0645S 


7041 




CIA 




/NEGATE 


0«»tt5fr 


1564 




TAD 


I WORDl 


/COMPARE AGAINST START OF BUFFER 


06457 


7650 




SNA 


CLA 


/BUFFER EMPTY? 


06«60 


5210 




JMP TTYIN 


/YES-THERE IS NOTHING TO RU80UT 


06461 


1273 




TAD 


K334 




06462 


4522 




JMS 


I XPUT 


/ECHO "S" 


06463 


4551 




JMS 


I CHRNOL 


/GET CHAR n OF NEXT CHAR (LAST #+1) 


06464 


5274 




JMP CIB 


/I 


06465 


5301 




JMP C3B 


/3 


06466 


4546 




JMS 


I CNOCLL 


/IT WAS 2-MAKE IT 1 


06467 


7240 


PBACK, 


CUA 


CMA 


/-I 


06470 


1566 




TAD 


I WORDS 


/BACK UP BUFFER POINTER 


06471 


3566 




OCA 


I W0RD3 




06472 


5210 




JMP 


TTYIN 


/NEXT CHAR 


06473 


0334 


K334, 


334 






06474 


1563 


C18, 


TAD 


I WORD0 




06475 


0105 




AND 


K7477 




06476 


1077 




TAD 


K0200 


/IT WAS 1-MAKE IT 3 


06477 


3563 




DCA 


I WORDS 




06500 


5210 




JMP 


TTYIN 


/NO NEED TO BACK UP POINTER 


06501 


1563 


C3B, 


TAD 


I WORO0 




06502 


0105 




AND 


K7477 




06503 


1076 




TAD 


K0100 


/IT WAS 3, MAKE IT 2 


06504 


3563 




DCA 


I WORO0 




06505 


5267 




JMP 


PBACK 


/BACK UP POINTER 


06506 


4553 


CR, 


JMS 


I CRLF 


/ECHO A CR,LF 


06507 


1320 




TAD 


K4 




06510 


1200 




TAD 


TTYORI 


/BUMP DRIVE RETURN TO NORMAL 


06511 


3200 




DCA 


TTYORI 




06512 


1053 




TAD 


CHAR 




06513 


4545 




JMS 


I PACKU 


/PACK CHAR IN BUFFER 


06514 


1564 




TAD 


I WORDl 




06515 


3566 




OCA 


I W0R03 


/INITAILZE BUFFER POINTERS 


06516 


4546 




JMS 


I CNOCUL 




06517 


5600 




JMP 


I TTYDRI 


/RETURN 


06520 


0004 


K4, 


4 






06521 

06522 


2017 
7410 


SPIN, 


ISZ 

SKF 


SPINNR 


/SPIN RANDOM « SEED 


06323 


7064 




CMA 


CMi. RAL 


/MARCH TO THE LEFT 


06524 


5213 




JMP 


KSPA 


/CHECK FOR CHAR YET 



/OS/8 BASIC RUNTIME SYSTEM 



PAUe-VT l0/2«/72 PAGE 135 



/SUBROUTINE FBITGT»ROUTIN£ TO PUT FUNCTION BITS FROM INSTRUCTION INTO AC 



16525 0000 FBXT6T, 



0fcS26 1064 

06527 7112 

06550 7012 

06551 007a 
06532 5725 



06533 

06534 
06535 
06536 

06537 
06540 
06541 
06542 

06543 

06544 
06545 
06546 
06547 



06550 

06551 
06552 
06553 

06554 
06555 



06556 

06557 
06560 
06561 
06562 
06563 
06564 
06565 



1067 
1347 
7710 
4516 
1467 
3040 
7240 
1067 
3067 
1040 
5733 
7325 



4333 

7001 
3774 
4333 
3515 
5513 



4765 
3044 
4765 
3045 
4765 
3046 
5513 
2311 



TAO INSAV 

CU RTR 

RTR 

AND K0017 

JMP 1 FBITST 



/PUT FUNCTION BITS IN BITS 8"11 

/MASK THEM OFF 
/RETURN 



/60SUB POP ROUTINE-ROUTINE TO POP ELEMENT OFF GOSUB STACK 



0000 POPGf 



GR, 



MSTTOPi 



TAD GSP 
TAO MSTTOP 
SPA CLA 

JMS I ERROR 
TAD I GSP 
DCA TEMPI 
CLA CMA 
TAO GSP 
DCA GSP 
TAO TEMPI 
JMP I POPG 
-GSTCK 



/GOSUB RETURN 
RETRNIi JMS POPG 
lAC 

DCA I INTPLK 
JMS POPG 
OCA I CDFPSU 
JMP I lUOOPL 



/GET GOSUB STACK POINTER 

/COMPARE AGAINST TOP OF STACK 

/ATTEMPT TO POP OF EMPTV STACK? 

/YES-RETURN WITHOUT A GOSUB 

/GET TOP STACK ELEMENT 

/SAVE 

/•I IN AC 

/BACK UP GOSUB STACK POINTER 

/GET POPPED ELEMENT IN AC 
/RETURN 



/POP PC OFF GOSUB STACK 

/BUMP OVER SECOND WORD OF GOSUB INST 

/USE AS NEW PSEUOOoPC 

/POP CDF OFF STACK 

/PUT IN LINE IN PWFECM 

/RETURN TO ILOOP 



/DATA LIST READ (NUMERIC) 



RDLISTt JMS I DLRELK 
DCA EXP 

JMS I DLRELK 
DCA HORD 
JMS I DLRELK 
DCA LORD 
JMP I ILOOPL 
DLRELK* OLRCAD 



/FETCH WORD FROM LIST 
/STORE AS EXPONENT 

/HIGH MANTISSA 

/LOW MANTISSA 



/SUBROUTINE FTYPE-RETURN5 TO CALL*1 IF FILE NUMERIC»CALL*2 IF ASCII 



06566 


0000 FTY 


PE, 




06567 


1563 


TAO X WORDO 


/GET HEADER 


06570 


7110 


CLL RAR 


/TYPE TO LINK 


06571 


7630 


SZL CLA 


/IS IT NUMERIC? 


06572 


2366 


ISZ FTYPE 


/NO-BUMP RETURN 


06573 


5766 


JMP I FTYPE 


/RETURN 





• • • 

/OS/8 BASIC RUNTIME SYSTEM PAUB-VT 10/24/72 PAGE U3-1 
0*574 0302 INTPLK, INTPC 



/OS/S BASIC RUNTIME SYSTEM 



PAL8-V7 10/24/72 PAGE I i« 



6600 



PAGE 



/LAST PAGE OF BBTS-tONTAlNS SAC, I/O TABLE, ANO SOME MISCELLANEOUS CODE 

/•••••t»*«**»«**»«»«»«**»»*****»**»*«»»**,»*»**»*«,****,*<,(^*»**^ 

/TELETYPE INPUT BUFFER (74 CHARACTERS LONG) 

/THIS BUFFER CONTAINS ONCE ONLY START CODE WHEN LOAOEO 







TTYiUFi 




06600 


1029 


8TART4| 


TAD CDFPS 


06601 


1242 




TAD MCDFl 


06602 


7640 




SZA CLA 


06603 


5513 




JMP I ILOOPL 


06604 


1026 




TAD PS8TRT 


06608 


3015 




OCA BABS 


066«6 


1102 




TAD K0400 


06607 


4405 




JN9 I NUMCOM 


06610 


5213 




JMP CHK82 


06611 


1074 




TAD N0O17 


06612 


5237 




JMP BAS 


06613 


1026 


CHKBii 


TAD P88TRT 


06614 


3015 




OCA BABS 


0661S 


1846 




TAD C1000 


06616 


4409 




JM8 I NUMCOM 


06617 


5222 




JMP CHKB3 


06620 


1245 




TAD C16 


06621 


5237 




JMP BAS 


06622 


1026 


CHKB3« 


TAD PSSTRT 


0662S 


3015 




OCA BABS 


06624 


1247 




TAD CI 400 


0662S 


440S 




JM8 I NUMCOM 


06626 


5231 




JMP CHKB4 


06627 


1244 




TAD C14 


06630 


5237 




JMP BAS 


06631 


1026 


CHKB4, 


TAD PSSTRT 


06632 


3015 




OCA BABS 


06633 


1243 




TAO K2000 


06634 


4405 




JMS I NUMCOM 


0663S 


5513 




JMF I ILOOPL 


86636 


1073 




TAO K0010 


06637 


3036 


BAS. 


DCA BMAP 


06640 


5513 




JMP I ILOOPL 


06641 


0000 







06642 


1567 


MCDFl, 


•6211 


06643 


2000 


K2000, 


2000 


06644 


0014 


C14, 


14 


06645 


0016 


C16, 


16 


06646 


1000 


C1000, 


1B00 


06647 


1400 


ci40e, 


1400 


06650 


0000 







06651 


0000 







06652 


0000 







06653 


0000 







06654 


0000 







06655 


0000 








/OF FOB BOTTOM OF PSEUDO-CODE 

/COMPARE TO A CDF IB 

/DO THEY MATCH? 

/NO-ALL BUFFERS ARE FREE-START INTERPRETER 



/IS START OF PSEUOO-CODE BELOM 400 
/NO-CHECK FOR 1000 

/YES-SET ALL BUFFERS BUSY 



/IS START OF PSEUOO-COOE BELOW 1000 

/NO-CHECK 1400 

/YES-ONLY BUFFER 1 IS AVAILABLE 



/IS START OF CODE BELOW 14009 

/YES-CHECK 2000 

/YES-ONLY BUFFER 1 AND 2 AVAILABLE 



/IS CODE START BELOW 20B0f 

/NO-START INTERPRETER-ALL BUFFER FREE 

/YES-BUFFERS 1,2, AND 3 AVAILABLE 

/START INTERPRETER 







# 



/0S/« BASIC RUNTIME SYSTEM 
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eitfSb 0080 

06«S7 0000 

06660 0000 TTYCNDf 

0103 XM400aK7400 

/*********»*•***** n* mm iitinni*in,$n,tinn,***iiiiiii,*i,in,i,i, Hi, ttttttimii* Him 

/SUBKOUTINE CHARNO-RETU«NS TO CAI.L*! IF CHAR #»1,CALL»2 IF 5,CALL*3 



06661 


0000 


CHARNO 







06662 


1S63 




TAD I MORD0 


/HEADER 


06663 


0271 




AND K300 


/ISOLATE CHAR * 


06664 


7106 




CLL RTL 




06665 


7006 




RTt 


/CHAR # TO BITS 0,1 


06666 


7S40 




8MA SZA 


/IS IT 27 


06667 


2261 




ISZ CHARNO 


/VES-8UMP RETURN 


06670 


7640 




SZA CLA 


/IS IT 2 OR 3? 


06671 


2261 




ISZ CHAHNO 


/YES-BUMP RETURN 


06672 


5661 




JMP I CHARNO 


/RETURN 


06673 


0300 


K300I 


300 








/ERROR 


MESSAGE FOR TTY 


INPUT OVERFLOW 


06674 


4516 


10, 


JMS I ERROR 


/LINE FULL 


0667S 


5676 




JMP I ,♦! 


/FLUSH BUFFER AND TRY AGAIN 


06676 


6402 




LFLUSH 





/08/8 BASIC RUNTIME SYSTEM 
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6677 



• 0VER|.AY*3277 



nttnuntNUftnntuiuNaut/unnnnfiuutunutt/Hi 

ttitUt I/O TABLE 5 13-WORD ENTRIES U ( U f f ( U H N f U t / 1 ( t f U f U 

(nnnnnnfUtt)nnNNN/inuin/un/u/unuuimnut 



B6677 


0001 TTYPi 


1 


06700 


6600 


TTY8UF 


06701 


0000 





06708 


6600 


TTYBUF 


06703 


6400 


TTYDRI 


06704 


0000 





06705 


0000 





06706 


0000 





06707 


0000 





06710 


0000 





067U 


0000 





06712 


0000 





06713 


0000 





067ia 


0000 FILEl, 





06719 


0000 





06716 


0000 





06717 


0000 





06720 


0000 





06721 


0000 





06722 


0000 





06723 


0000 


e 


06724 


0000 





06725 


0000 





06726 


0000 





06727 


0000 





06730 


0000 





06731 


0000 FILE2, 





06732 


0000 





06733 


0000 





06734 


0000 





06735 


0000 





06736 


0000 





06737 


0000 





06740 


0000 





06741 


0000 





06742 


0000 





06743 


0000 





06744 


0000 





06745 


0000 





06746 


0000 FILE3, 





06747 


0000 





06750 


0000 





067S1 


0000 





06752 


0000 





067S3 


0000 





06754 


0000 





06755 


0000 







/TELETYPE ENTRY-FILE IS ASCII 
/BUFFER ADDRESS 
/CURRENT BLOCK IN BUFFER 
/READ WRITE POINTER 
/HANDLER ENTRY 



/FILE #1 



/FILE #2 



/FILE #3 




# 
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06756 


0000 





06757 


0000 





06760 


0000 





06761 


0000 





06762 


0000 





06763 


0000 FILe4, 


06764 


0000 





06765 


0000 





06766 


0000 





06767 


0000 





06770 


0000 





06771 


0000 





06772 


0000 





06773 


0000 





06774 


0000 





06775 


0000 





06776 


0000 





06777 


0000 






/FILE »H 



/05/8 BASIC RUNTIME SYSTEM 
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A 


65a7 


ATANAl 


4427 


CHAIN 


3600 


DA 


2316 


ABSV 


3575 


ATANA2 


4435 


CHAR 


0053 


OADP 


0060 


ABSVAL 


2lt>k 


ATANA3 


4443 


CMARNO 


6661 


DATABA 


3666 


ABSVLI. 


1376 


ATAN60 


4424 


CHAR3P 


2746 


DATCOM 


361S 


ACH 


0045 


ATANBl 


4432 


CHAR3U 


3064 


DATE 


3600 


ACl 


0046 


ATANB2 


4440 


CHECKi. 


3461 


DATTAB 


4526 


ACUO 


0046 


ATANB3 


4446 


CHKB2 


6613 


OBAD 


6115 


ACSR 


6072 


A999 


2514 


CHKB3 


66^2 


OBAOl 


5534 


ACSRPT 


4704 


BABS 


0015 


CHKB4 


6631 


DBAOIP 


6175 


ACX 


0044 


BACKUP 


6454 


CHR 


3400 


OCNT 


5137 


AC0 


0040 


BAS 


6637 


CHRNDU 


0151 


OCNTP 


4726 


ACI 


0041 


8CGET 


3035 


CHRSAV 


0040 


DE 


0557 


ACS 


0042 


BCGETL 


2776 


CI 


3622 


DECNV 


5213 


ADCALC 


0640 


BCNT 


1030 


CL 


3644 


OECON 


5214 


AOFC 


0707 


BCPUT 


0747 


CLEANP 


4260 


DECONV 


5207 


ADPW 


4747 


BCPUTl 


3034 


CIENG 


3440 


DECONl 


5335 


AJT 


0714 


BEND 


1137 


CUF 


3744 


DEVCAL 


0124 


At.1 


6057 


BLINIT 


3361 


CLOSE 


3405 


OEVNAL 


4332 


AllK 


3774 


BLREAO 


3344 


CLOSED 


3442" 


DEVNAl 


4027 


ALIP 


6240 


BMAP 


0036 


CNOBMK 


2765 


0EVNA2 


4030 


ALIPP 


5140 


BNEG 


6374 


CNOBML 


5573 


OFETCH 


4103 


AllPT 


4705 


BO 


4215 


CNOBMP 


3104 


OGTYP 


5076 


ALIPTR 


5642 


BOUTRS 


1064 


CNOCLL 


0146 


DGTVPP 


4725 


AMODE 


2324 


BSTRT 


1070 


CNOCLR 


3016 


DIGl 


4134 


ANOLST 


3401 


BSTRTA 


1027 


COMBNE 


2766 


DIGIA 


3745 


ANDL82 


3542 


BSWL 


0144 


COMLOP 


2535 


DIG2 


4135 


ANOPTR 


3400 


BSWP 


2240 


COMMA 


2517 


0IG3 


4136 


ANt 


3775 


BUFASS 


4237 


COMMAP 


3250 


DI64 


4137 


AN2 


3776 


8UPCHK 


2706 


COMMAS 


2557 


DIG5 


4140 


AN2PTR 


3541 


BUPCHL 


0147 


COS 


4053 


DISIN 


3634 


APae01 


2175 


8UPIN 


1025 


COUNCK 


1363 


OLCDF 


2317 


ARGET 


6200 


BUPOUT 


1026 


CPLOOP 


3234 


DLCOFL 


1176 


AR6ETK 


5503 


Bl 


4234 


CR 


6506 


DLPTR 


0016 


ARGETU 


S444 


B2 


4227 


CREAD 


3671 


DLREAD 


2311 


ARGETP 


6127 


83 


4222 


CRETN 


3516 


OLREAL 


2416 


ARGPUK 


4307 


CAO 


4506 


CRFUNC 


0373 


OLRELK 


6565 


AR6PLL 


3511 


CBUK 


3676 


CRLF 


0153 


OLSTOP 


0027 


ARGPOl 


4220 


CCC240 


3460 


CRLFR 


2347 


DLSTRT 


0030 


ARGPRE 


0307 


CCR 


3743 


CRREP 


1360 


OMAP 


0035 


ARGPRt 


1420 


CC13 


4153 


CHUBOT 


6450 


DNAt 


3617 


ARITHA 


1531 


CC16 


4414 


CSFN 


2001 


0NA2 


3620 


ARJMP 


0711 


CC240 


3747 


CSMOVE 


4143 


DNUM8R 


5305 


ARRAVI 


0600 


CC3 


4331 


CSTA 


4162 


DO 


4055 


ARSTRT 


0022 


CC4 


4330 


CSTAC 


4163 


DOAOD 


6023 


ARTRAP 


4365 


CDFINL 


0541 


CIB 


6474 


OONA 


6027 


A8C 


3407 


CDFIO 


0020 


C1000 


6646 


DONE 


3765 


ASCHR 


3123 


CDFPS 


0025 


C13 


4531 


OONEF 


5066 


ASCNDE 


3244 


CDPPSL 


0115 


C14 


6644 


DRAP 


4132 


ASCQLK 


3457 


CDFP8U 


0206 


C1400 


6647 


ORARGl 


0551 


ASCON 


3660 


CDF0 


0761 


C16 


6645 


DRARGS 


0552 


A8C0UL 


3216 


CDF000 


4336 


C20 


4333 


0RAR63 


0553 


AtCOUT 


1260 


COF10 


6307 


C240 


2565 


ORCALL 


0537 


ATABDP 


0610 


CDF20 


4562 


C3 


4070 


DRERR 


0556 


ATABDL 


1173 


COIN 


3621 


C3B 


6501 


DRIVBL 


4134 


ATAN 


4200 


CFETCH 


1322 


C4 


4140 


DRIVRN 


4200 
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DS 


atttl 


FACCUR 


0365 


FFN6G 


6135 


FNEGU 


0140 


DSWIT 


0052 


FACR 


6031 


FFNEGA 


5410 


FNUP 


6334 


DTI 


S101 


FACREU 


0133 


FFNEGK 


5501 


FNOM 


4304 


DV 


6355 


FACRES 


2373 


FFNtGP 


5303 


FNORt 


0136 


OVLPl 


5711 


FAC8AL 


0132 


FFNEGW 


5773 


FNORP 


6176 


DVLt 


5514 


FACSAV 


3371 


FFNGP 


4736 


FO 


1637 


DVOPS 


6315 


FAODU 


4060 


FFNOR 


6215 


FOTYPE 


2357 


DVOPSP 


5533 


FAUDLK 


3473 


FFNORR 


6236 


FOTYPL 


3343 


OVOPl 


6330 


FADOUL 


5312 


FFQRMT 


1302 


FOUTl 


4625 


DV0P2 


5535 


FAOOM 


4357 


FFOUT 


4600 


F0UT2 


4634 


DV0P2P 


6333 


FAOl 


6004 


FFOUTL 


1373 


F0UT3 


4674 


OVOVR 


5777 


FATCHK 


4047 


FFPUT 


6256 


F0UT4 


4667 


DVTHAP 


3574 


FB 


4012 


FFPUTP 


0135 


FPPTMl 


1175 


DVl 


5765 


FBITGT 


6525 


FFSIN 


4000 


FPPTM2 


1172 


0V8 


5755 


FBIT5 


0117 


FFSO 


6347 


FPPTM3 


1167 


0V24 


5745 


FC 


3441 


FFSU8 


6117 


FPPTM4 


1164 


0V24P 


5532 


FCUR 


0137 


FFSU91 


5400 


FPPTM5 


1161 


0V2«PT 


5136 


FCNT 


5275 


FGETL 


0134 


FPUTL 


0135 


EAE 


0000 


FO 


5527 


FGETM 


0134 


FPUTUL 


0722 


EBC 


2730 


FDDQN 


5742 


FI 


2307 


FPUTM 


0135 


EBUK 


3740 


fDOONP 


5531 


FIDLE 


0123 


FRACT 


4071 


EDBLK 


3747 


FDIVU 


4062 


FIDVP 


3631 


FRANDM 


2342 


EDON 


5260 


FOIVM 


4360 


FI602 


5241 


FREE70 


4062 


EF 


0560 


FDIVIU 


4067 


FlUEFA 


1533 


FREE72 


4073 


EFATAk 


4254 


FDIVIM 


4361 


FIUEl 


6714 


FROOT 


3646 


EFUS 


0056 


FDVPT 


5311 


FI1.E2 


6731 


FSORU 


4065 


EM 


3615 


FDl 


5504 


FILE3 


6746 


FSORM 


4364 


EMOONE 


3600 


FOIP 


5721 


F1LE4 


6763 


FSTOP 


3704 


EMDONL 


3570 


FE 


4112 


FIL8TR 


3316 


FSTOPI 


0563 


EMESS 


4117 


FERRI.P 


4020 


FILSTU 


4321 


FSTOPN 


0561 


EMIOOP 


3545 


FETPAG 


4111 


FISUBL 


4367 


FSTOPI 


0161 


EN 


4307 


FF 


0037 


PIXDNE 


4525 


FSUBU 


4064 


ENTLOK 


4275 


FFAOO 


6000 


FIXL 


4066 


FSU8LK 


1371 


ENTNO 


0162 


FFADP 


4733 


FIXLP 


4515 


FSUBLL 


3573 


ENTHVN 


4031 


PFATN 


4200 


FJOCI 


0400 


F8UBM 


4362 


ENVAt 


3523 


FFCOS 


4053 


FLOW 


0057 


FSUBIL 


4063 


EOFSEU 


0143 


FFOIV 


5722 


FUEN 


4306 


FSUBIM 


4363 


EOFSET 


2252 


FFDIVl 


5412 


FtING 


5142 


FSWITC 


2060 


ERRDI8 


1460 


FFOP 


5446 


FLINK 


4722 


FTCOM. 


2424 


ERRET 


4057 


FFOVP 


4734 


FLN 


3643 


FTHPRT 


4505 


ERROR 


0116 


FFOl 


5726 


FtOABL 


4505 


FTYL 


3015 


ERRORS 


4013 


FFEXP 


4120 


FLOATB 


3420 


FTYPE 


6566 


ESTRA 


4143 


FFEXPU 


3625 


FUOATU 


0141 


FTYPL 


0150 


ESTRN6 


4121 


FF6ET 


6241 


FLOATM 


0141 


FTYPSE 


3531 


ETAB 


4156 


FFIN 


5200 


FLOATS 


4144 


FUJUMP 


1523 


ETABA 


4154 


FFINL 


3125 


FLOOK 


4253 


FUNCII 


1473 


ETLOP 


4042 


FFINI.K 


3477 


FM 


1624 


FUNC2I 


1472 


EXP 


0044 


FFINI 


5232 


FMPYL 


5572 


FUNC3I 


1542 


EXPAe 


4421 


FFIX 


4500 


FMPYLK 


4061 


FUNC4I 


1466 


EXPAl 


4416 


FFLOAT 


4533 


FMPVLL 


5310 


FUNC51 


1471 


EXPBl 


4413 


FFU06 


4263 


FMPYLV 


3627 


6CHR 


5322 


EXPON 


3477 


FFU06L 


3626 


FMPYM 


43^6 


GO 


50^5 


EXPQNK 


3630 


FFMPP 


4735 


FN 


2005 


GETCH 


3126 


EXPONi 


4120 


FFMPY 


5600 


FNAP 


3437 


GETCHG 


3502 


E20P10 


1307 


FFMT 


4613 


FNEGI 


1226 


GETCHt 


0142 
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6ETE 


5250 


OK NT 


5003 


GON 


3761 


GOSUB 


0415 


6R 


6537 


6S 


2335 


6SP 


0067 


6SST0P 


0476 


6STCK 


04S3 


6STCKT 


2341 


GTFLG 


4200 


6T1FLG 


4263 


HOOKU 


4007 


HORD 


0045 


lA 


1465 


IDLE 


2304 


IF 


4424 


I6S 


3707 


lUOOP 


0212 


UOOPF 


0240 


lUOOPL 


0113 


IN 


4032 


INPTCl 


3500 


INPUT 


5347 


INSAV 


0064 


INSC 


3413 


INT 


3400 


INTERS 


1152 


INTL 


0114 


INTPC 


0302 


INTPCK 


1175 


INTPCI. 


0444 


INTPLK 


6574 


INTPOS 


3420 


INTRB 


1372 


10 


6674 


lOLK 


6451 


lOTAB 


2035 


lOTPTR 


2034 


lOUT 


5360 


ISZAC2 


6310 


I5ZFGT 


6275 


JEOFI 


0445 


JFAIL 


0413 


JFAILL 


2053 


JFOR 


2042 


JFORL 


0443 


JMPFIL 


1450 


JMPI 


0247 


JMPISA 


0736 


JMPI9N 


4012 


JMPI2 


0746 


JMPI3 


1205 


JMPI6 


1604 


JMSI 


0246 



JMSI4 
JMS15 
JM5I7 
JNSSI 

JMSTAD 

JMSUSR 

JNEG 

JSU 

JU8NE6 

KC 

KC240 

KEX 

KFDl 

KKM10 

KKM12 

KK12 

KK13 

KK2000 

KK40 

KK7 

KK7600 

KI.7600 

KME 

KM10 

KM12 

KM13 

KM144 

KM20 

KM22 

KM4 

KM40 

KM400 

KM7 

KNOP 

KNT 

KNTP 

KSFA 

KUPARO 

K0 

K0003 

K0(304 

K0B07C 

K0010 

K0017 

K0037 

K0037C 

K0a37L 

K0057 

K0077 

K0100 

K0177 

K020e 

K0210 
K0J00 
K0340 



1421 
1434 
1545 
0306 
1535 
1557 
3466 
2627 
3464 
3752 
1151 
3742 
5447 
3676 
5775 
5313 
4330 
4161 
3271 
4730 
1253 
3745 
5306 
0250 
5135 
5776 
5134 
4731 
3777 
2031 
0106 
0103 
4732 
4012 
4737 
5154 
6413 
3751 
4412 
3533 
2365 
3675 
0073 
0074 
0742 
3671 
1755 
3673 
0075 
0076 
1776 
0077 
3205 
4066 
0100 



K0377 


0101 


K0400 


0102 


K0700 


3672 


K1000 


4327 


KU0 


2236 


K1400 


4326 


K16 


4721 


K20 


3272 


K200 


0077 


K2000 


6643 


K212t. 


2356 


K21S 


0054 


K232 


3530 


K240 


3204 


K260 


4065 


K277 


6453 


K300 


6673 


K334 


6473 


K4 


6520 


K40 


0767 


K4207K 


4363 


K4210 


3360 


KS252 


6452 


K5700 


3674 


K6 


4740 


K6000 


3772 


K6213K 


4364 


K6222 


4567 


K6223 


4565 


K7000 


4135 


K7200 


4142 


K73 


4563 


K7400 


0103 


K7435 


1665 


K7437 


3370 


K7477 


0105 


K7506 


5346 


K75S4 


0431 


K7577K 


4365 


K7600 


0432 


K76B7K 


3703 


K7700 


0104 


K7737 


0770 


K7760 


3666 


K7773K 


4366 


LASTS 


3332 


LDH 


0131 


UDHC 


2105 


LDHCDF 


2237 


UOHCDL 


4506 


LDHDCK 


0573 


LOHOF 


2647 


LDHINI 


2676 


LDHINU 


0127 


LDHl. 


2646 



LOHPR 


4502 


UOHPST 


2143 


U0MP3W 


4503 


UDHR 


2705 


LDHRST 


0157 


LDHSWT 


2704 


UEN 


3414 


LEV 


5477 


LFLUSH 


6402 


LINEHI 


0065 


LINEI 


1140 


LINELO 


0066 


LK7607 


3746 


LM 


6360 


LMAKE 


4067 


LMAKEL 


3741 


LN2 


4470 


LN20V2 


4410 


LOADDF 


3165 


LOG 


4263 


LOGCl 


4454 


L0GC3 


4457 


L0GC5 


4462 


L0G2E 


4405 


LOOP 


5052 


LOP01 


3722 


LOP02 


3746 


LOPl 


6075 


L0P2 


6037 


LORD 


0046 


LRE8ET 


0567 


LRSCOM 


2655 


LSU81I 


1403 


LSU82I 


1413 


LSII 


1400 


LS2I 


1410 


LTRPRT 


4302 


L003; 


4J37 


L7466 


3667 


L7600 


0366 


L7600K 


4370 


L7605K 


3670 


L7605P 


4371 


L7607 


1527 


L7620 


3665 


L7621 


3667 


L7642 


4566 


L7644 


3664 


L7666 


3670 


L7721 


4570 


L7727 


4571 


L7746 


0357 


MAKED 


4061 


MASKL 


3427 


MBENO 


1031 
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MCC 


3750 


NAMEG 


4416 


OPSR 


6034 


PUTCH 


3253 


MCDFl 


6642 


NAMEGi. 


4141 


OPX 


0047 


PUTCML 


0112 


MCOLON 


4400 


NCC 


4450 


OtRAPA 


4532 


PUTCHR 


1010 


MCR 


6447 


NCGS 


4464 


OUT 


5144 


PWFECH 


0200 


MCRMAU 


3456 


NCHK 


4113 


DUTOG 


5150 


PWFECL 


0120 


MCSPE 


4401 


NCHKU 


4262 


OUTOGP 


4720 


PZR 


5015 


MCTRUC 


1032 


NEWCOF 


6301 


OVADO 


1512 


PICOF 


1240 


MCTRLU 


6446 


NEXRCK 


4274 


OVONE 


1516 


PlCDFl 


1245 


MCTRI.2 


3103 


NEXREC 


3302 


OVERIA 


3400 


PISWAP 


0156 


MDECPT 


1375 


NEXREL 


0152 


OVML 


0346 


P2C0F 


1243 


MONE 


3227 


NFWAG 


4120 


OVRLAY 


1530 


P2C0FL 


4563 


MDONE 


5627 


NFLGST 


4111 


00 


6354 


P2C0F1 


1247 


MOSET 


S4S0 


NGT 


4257 


PA 


4415 


P2C0U1 


4564 


MDSETK 


5774 


NHNDLE 


4103 


PACKCH 


2735 


P2SWAL 


3744 


MDSETP 


5445 


NHNOLU 


4261 


PACKL 


0145 


P200 


5211 


MDV 


5307 


NOCC 


1044 


PATCHF 


S364 


QUA02 


4017 


MDl 


5452 


NOCTC 


3725 


PATCHP 


0155 


QUA03 


4022 


MDIP 


5443 


NOCZ 


3417 


PBACK 


6467 


QUA04 


4024 


MFATAL 


4155 


NOPl 


6111 


PDNE 


3217 


ROUIST 


6556 


MINUS 


5363 


N0P2 


6053 


POP 


5001 


RE 


3010 


MINUSP 


3461 


NOHMLP 


6225 


PINFQ 


0361 


REAOFL 


3000 


MINUS« 


0360 


NOTE 


4743 


PI0V2 


4402 


REAOFW 


3147 


MIN4 


4367 


NTTY 


3135 


PLUS 


5362 


REAOI 


3105 


MK()1 


2727 


NUCLST 


4365 


PNT 


1770 


RECP2 


1066 


MUF 


2456 


NUM 


4113 


POUYNL 


4304 


RELCOM 


3512 


MMU 


4501 


NUMCOU 


6361 


POUYSN 


4026 


RESDUS 


2567 


MMM4 


4415 


NUMCOM 


0005 


POPG 


6533 


RESTI 


1650 


MMllB 


2513 


Nl 


4403 


POS 


4400 


RESTIL 


2577 


mZbZ 


3746 


NIA 


4542 


POSITN 


4501 


RESTOR 


2572 


mu 


3S42 


. N2 


4404 


POSPTA 


2560 


RETMOL 


3665 


MODESM 


0063 


N3 


4405 


POSSET 


4424 


RETMOO 


3526 


MOfTEN 


6366 


N3A 


4402 


PD8TP 


2561 


RETPOS 


4471 


MPLP 


5653 


N4 


4406 


POVTAB 


0362 


RETRNl 


6550 


MPUPl 


5654 


N5 


4407 


PR 


5016 


RETRNO 


3571 


MPIPS 


5666 


N6 


4410 


PROCP 


4776 


RETRNl 


3610 


MPI.U8 


3251 


N6A 


4543 


PROCPP 


5143 


RET0 


3565 


MPY 


2260 


N7666 


3613 


PREST 


3715 


RIGHTL 


2665 


MPYUNK 


0121 


OAUD 


6157 


PRINT 


0110 


RIGHTS 


2633 


MP12L 


5701 


OAUOP 


5141 


PRNTX 


5160 


RNO 


4543 


MP12LP 


2265 


OATADI 


1526 


PRNTXP 


4723 


HONLY 


3314 


Mpaa 


5643 


OCDF 


2146 


PRNTXl 


5164 


RSEEO 


2346 


MRUBOT 


3301 


OE 


1513 


PRZRO 


5172 


RSEEOU 


4562 


MSPACE 


1216 


UNE 


3474 


PRZROP 


4724 


HTN2 


5371 


M8TT0P 


6547 


ONEMAF 


4465 


PS 


5023 


RTZRO 


5620 


Ml 


4727 


ONERET 


4473 


PSFLAG 


0031 


RWONC 


3312 


MIR 


3470 


ONEl 


4476 


PSSTRT 


0026 


SAC 


0321 


Mi 10 


3252 


OPENAF 


4001 


P3TCHK 


3476 


SACCHK 


2132 


M13 


4530 


OPENAV 


4000 


PSWAP 


1230 


SACEM 


2216 


M14 


0107 


OPENNF 


4004 


PSWAP2 


4334 


SACi 


3421 


M215 


0055 


OPENNV 


4003 


PSWP2P 


4544 


SACPTR 


0111 


M2a0 


5361 


OPtRI 


1200 


P51L 


0363 


SAC40C 


2116 


M26e 


1374 


OPH 


0050 


PS2L 


0364 


SAO 


0735 


M4 


2566 


OPl 


0051 


PTRBMP 


2166 


SAFINO 


1747 


Mse 


1033 


0PNE6 


6146 


PUSHG 


2326 


SARRAY 


0724 


M6 


4413 


OPNEGP 


5502 


PbSHGL 


0442 


SASTRT 


0024 
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sc 


2232 


STARTB 


4305 


TEMPU 


2311 


WE 


3032 


SCAUDF 


0317 


STARTl 


0321 


TEMPIS 


2260 


MORD0 


0163 


SCALOU 


U77 


STARTS 


1152 


TEMP 14 


0003 


MORD0A 


2032 


SCASE 


0243 


8TART4 


6600 


TEMP15 


0004 


WOROl 


0164 


SCOP 


i737 


STB 


3642 


TEMP17 


3023 


WOROIA 


2033 


8C0MP 


2061 


STCGTJ 


3501 


TEMP18 


3016 


WORO10 


0173 


8C0NTU 


4462 


8TC0M 


1700 


TEMP19 


3371 


WORD 11 


0174 


8C0N1 


2200 


STC40C 


2134 


TEMP2 


0007 


W0R012 


0175 


SC8TRT 


0021 


STOP 


1701 


TEMP21 


2636 


W0R013 


0176 


SDIS 


0276 


8T0FL 


1174 


TEMP24 


0531 


W0RD14 


0177 


SE 


4706 


STFILK 


0743 


TEMP3 


0042 


M0R02 


0165 


8E6 


4266 


STFIND 


1666 


TEMP30 


0771 


W0RD3 


0166 


8EBCMI. 


4370 


8TFINK 


4504 


TEMP4 


0043 


M0RD4 


0167 


SEGCOM 


2222 


8TFINL 


0305 


TEMPS 


0047 


WORDS 


0170 


SEP 


SIS7 


8TM 


0130 


TEMP6 


0050 


W0R06 


0171 


8EP1 


0261 


8THC0F 


0536 


TEMP7 


0051 


W0R07 


0172 


8ETF 


20S4 


STHCDL 


2457 


TEN 


5317 


MRBLK 
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TM 
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TMPY 
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2023 


STHINl 
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S6N 
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STHINi 
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3276 
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3535 


SIN 
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STHR8T 


0160 
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W0PTRA 


3534 


SINAI 
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8TMSWT 


2644 


TP 


5314 


XDGET 
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4371 


STOPI 


4060 


TPH 
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USRA 
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